gi-poppler 0.0.34.13 → 0.0.34.14

raw patch · 110 files changed

+3716/−821 lines, 110 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 +1/−1
• GI/Poppler/Callbacks.hs +1/−1
• GI/Poppler/Constants.hs +1/−1
• GI/Poppler/Enums.hs +1/−1
• GI/Poppler/Flags.hs +13/−13
• GI/Poppler/Functions.hs +7/−7
• GI/Poppler/Objects.hs +1/−1
• GI/Poppler/Objects/Annot.hs +13/−13
• GI/Poppler/Objects/Annot.hs-boot +1/−1
• GI/Poppler/Objects/AnnotCircle.hs +4/−4
• GI/Poppler/Objects/AnnotCircle.hs-boot +1/−1
• GI/Poppler/Objects/AnnotFileAttachment.hs +3/−3
• GI/Poppler/Objects/AnnotFileAttachment.hs-boot +1/−1
• GI/Poppler/Objects/AnnotFreeText.hs +3/−3
• GI/Poppler/Objects/AnnotFreeText.hs-boot +1/−1
• GI/Poppler/Objects/AnnotLine.hs +3/−3
• GI/Poppler/Objects/AnnotLine.hs-boot +1/−1
• GI/Poppler/Objects/AnnotMarkup.hs +15/−15
• GI/Poppler/Objects/AnnotMarkup.hs-boot +1/−1
• GI/Poppler/Objects/AnnotMovie.hs +3/−3
• GI/Poppler/Objects/AnnotMovie.hs-boot +1/−1
• GI/Poppler/Objects/AnnotScreen.hs +2/−2
• GI/Poppler/Objects/AnnotScreen.hs-boot +1/−1
• GI/Poppler/Objects/AnnotSquare.hs +4/−4
• GI/Poppler/Objects/AnnotSquare.hs-boot +1/−1
• GI/Poppler/Objects/AnnotText.hs +7/−7
• GI/Poppler/Objects/AnnotText.hs-boot +1/−1
• GI/Poppler/Objects/AnnotTextMarkup.hs +7/−7
• GI/Poppler/Objects/AnnotTextMarkup.hs-boot +1/−1
• GI/Poppler/Objects/Attachment.hs +5/−5
• GI/Poppler/Objects/Attachment.hs-boot +1/−1
• GI/Poppler/Objects/Document.hs +180/−79
• GI/Poppler/Objects/Document.hs-boot +1/−1
• GI/Poppler/Objects/FontInfo.hs +6/−6
• GI/Poppler/Objects/FontInfo.hs-boot +1/−1
• GI/Poppler/Objects/FormField.hs +41/−41
• GI/Poppler/Objects/FormField.hs-boot +1/−1
• GI/Poppler/Objects/Layer.hs +7/−7
• GI/Poppler/Objects/Layer.hs-boot +1/−1
• GI/Poppler/Objects/Media.hs +8/−8
• GI/Poppler/Objects/Media.hs-boot +1/−1
• GI/Poppler/Objects/Movie.hs +4/−4
• GI/Poppler/Objects/Movie.hs-boot +1/−1
• GI/Poppler/Objects/PSFile.hs +8/−8
• GI/Poppler/Objects/PSFile.hs-boot +1/−1
• GI/Poppler/Objects/Page.hs +58/−61
• GI/Poppler/Objects/Page.hs-boot +1/−1
• GI/Poppler/Objects/StructureElement.hs +65/−65
• GI/Poppler/Objects/StructureElement.hs-boot +1/−1
• GI/Poppler/Structs.hs +1/−1
• GI/Poppler/Structs/ActionAny.hs +70/−7
• GI/Poppler/Structs/ActionAny.hs-boot +1/−1
• GI/Poppler/Structs/ActionGotoDest.hs +103/−11
• GI/Poppler/Structs/ActionGotoDest.hs-boot +1/−1
• GI/Poppler/Structs/ActionGotoRemote.hs +136/−15
• GI/Poppler/Structs/ActionGotoRemote.hs-boot +1/−1
• GI/Poppler/Structs/ActionJavascript.hs +103/−11
• GI/Poppler/Structs/ActionJavascript.hs-boot +1/−1
• GI/Poppler/Structs/ActionLaunch.hs +136/−15
• GI/Poppler/Structs/ActionLaunch.hs-boot +1/−1
• GI/Poppler/Structs/ActionLayer.hs +66/−5
• GI/Poppler/Structs/ActionLayer.hs-boot +1/−1
• GI/Poppler/Structs/ActionMovie.hs +128/−13
• GI/Poppler/Structs/ActionMovie.hs-boot +1/−1
• GI/Poppler/Structs/ActionNamed.hs +103/−11
• GI/Poppler/Structs/ActionNamed.hs-boot +1/−1
• GI/Poppler/Structs/ActionOCGState.hs +99/−9
• GI/Poppler/Structs/ActionOCGState.hs-boot +1/−1
• GI/Poppler/Structs/ActionRendition.hs +127/−13
• GI/Poppler/Structs/ActionRendition.hs-boot +1/−1
• GI/Poppler/Structs/ActionUri.hs +103/−11
• GI/Poppler/Structs/ActionUri.hs-boot +1/−1
• GI/Poppler/Structs/AnnotCalloutLine.hs +190/−18
• GI/Poppler/Structs/AnnotCalloutLine.hs-boot +1/−1
• GI/Poppler/Structs/AnnotMapping.hs +81/−12
• GI/Poppler/Structs/AnnotMapping.hs-boot +1/−1
• GI/Poppler/Structs/Color.hs +87/−10
• GI/Poppler/Structs/Color.hs-boot +1/−1
• GI/Poppler/Structs/Dest.hs +293/−27
• GI/Poppler/Structs/Dest.hs-boot +1/−1
• GI/Poppler/Structs/FontsIter.hs +16/−12
• GI/Poppler/Structs/FontsIter.hs-boot +1/−1
• GI/Poppler/Structs/FormFieldMapping.hs +81/−12
• GI/Poppler/Structs/FormFieldMapping.hs-boot +1/−1
• GI/Poppler/Structs/ImageMapping.hs +72/−10
• GI/Poppler/Structs/ImageMapping.hs-boot +1/−1
• GI/Poppler/Structs/IndexIter.hs +12/−8
• GI/Poppler/Structs/IndexIter.hs-boot +1/−1
• GI/Poppler/Structs/LayersIter.hs +12/−8
• GI/Poppler/Structs/LayersIter.hs-boot +1/−1
• GI/Poppler/Structs/LinkMapping.hs +81/−12
• GI/Poppler/Structs/LinkMapping.hs-boot +1/−1
• GI/Poppler/Structs/PageTransition.hs +188/−18
• GI/Poppler/Structs/PageTransition.hs-boot +1/−1
• GI/Poppler/Structs/Point.hs +65/−8
• GI/Poppler/Structs/Point.hs-boot +1/−1
• GI/Poppler/Structs/Quadrilateral.hs +147/−20
• GI/Poppler/Structs/Quadrilateral.hs-boot +1/−1
• GI/Poppler/Structs/Rectangle.hs +115/−12
• GI/Poppler/Structs/Rectangle.hs-boot +1/−1
• GI/Poppler/Structs/StructureElementIter.hs +11/−7
• GI/Poppler/Structs/StructureElementIter.hs-boot +1/−1
• GI/Poppler/Structs/TextAttributes.hs +179/−20
• GI/Poppler/Structs/TextAttributes.hs-boot +1/−1
• GI/Poppler/Structs/TextSpan.hs +13/−9
• GI/Poppler/Structs/TextSpan.hs-boot +1/−1
• GI/Poppler/Unions.hs +1/−1
• GI/Poppler/Unions/Action.hs +369/−45
• GI/Poppler/Unions/Action.hs-boot +1/−1
• gi-poppler.cabal +7/−7

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

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

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

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

@@ -20,9 +20,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -68,8 +68,8 @@ foreign import ccall "poppler_viewer_preferences_get_type" c_poppler_viewer_preferences_get_type ::      IO GType -instance BoxedEnum ViewerPreferences where-    boxedEnumType _ = c_poppler_viewer_preferences_get_type+instance BoxedFlags ViewerPreferences where+    boxedFlagsType _ = c_poppler_viewer_preferences_get_type  instance IsGFlag ViewerPreferences @@ -93,8 +93,8 @@ foreign import ccall "poppler_structure_get_text_flags_get_type" c_poppler_structure_get_text_flags_get_type ::      IO GType -instance BoxedEnum StructureGetTextFlags where-    boxedEnumType _ = c_poppler_structure_get_text_flags_get_type+instance BoxedFlags StructureGetTextFlags where+    boxedFlagsType _ = c_poppler_structure_get_text_flags_get_type  instance IsGFlag StructureGetTextFlags @@ -123,8 +123,8 @@ foreign import ccall "poppler_print_flags_get_type" c_poppler_print_flags_get_type ::      IO GType -instance BoxedEnum PrintFlags where-    boxedEnumType _ = c_poppler_print_flags_get_type+instance BoxedFlags PrintFlags where+    boxedFlagsType _ = c_poppler_print_flags_get_type  instance IsGFlag PrintFlags @@ -169,8 +169,8 @@ foreign import ccall "poppler_permissions_get_type" c_poppler_permissions_get_type ::      IO GType -instance BoxedEnum Permissions where-    boxedEnumType _ = c_poppler_permissions_get_type+instance BoxedFlags Permissions where+    boxedFlagsType _ = c_poppler_permissions_get_type  instance IsGFlag Permissions @@ -200,8 +200,8 @@ foreign import ccall "poppler_find_flags_get_type" c_poppler_find_flags_get_type ::      IO GType -instance BoxedEnum FindFlags where-    boxedEnumType _ = c_poppler_find_flags_get_type+instance BoxedFlags FindFlags where+    boxedFlagsType _ = c_poppler_find_flags_get_type  instance IsGFlag FindFlags @@ -252,8 +252,8 @@ foreign import ccall "poppler_annot_flag_get_type" c_poppler_annot_flag_get_type ::      IO GType -instance BoxedEnum AnnotFlag where-    boxedEnumType _ = c_poppler_annot_flag_get_type+instance BoxedFlags AnnotFlag where+    boxedFlagsType _ = c_poppler_annot_flag_get_type  instance IsGFlag AnnotFlag 

@@ -26,9 +26,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -39,7 +39,7 @@ -- function poppler_get_version -- Args : [] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -60,7 +60,7 @@ -- function poppler_get_backend -- Args : [] -- Lengths : []--- returnType : TInterface "Poppler" "Backend"+-- returnType : Just (TInterface "Poppler" "Backend") -- throws : False -- Skip return : False @@ -78,22 +78,22 @@   -- function poppler_date_parse--- 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}]+-- 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 TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False  foreign import ccall "poppler_date_parse" poppler_date_parse ::      CString ->                              -- date : TBasicType TUTF8-    Int64 ->                                -- timet : TBasicType TInt64+    CLong ->                                -- timet : TBasicType TLong     IO CInt   dateParse ::     (MonadIO m) =>     T.Text                                  -- date-    -> Int64                                -- timet+    -> CLong                                -- timet     -> m Bool                               -- result dateParse date timet = liftIO $ do     date' <- textToCString date

@@ -54,9 +54,9 @@ import GI.Poppler.Objects.Page import GI.Poppler.Objects.StructureElement -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -81,9 +81,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -168,7 +168,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "AnnotType"+-- returnType : Just (TInterface "Poppler" "AnnotType") -- throws : False -- Skip return : False @@ -196,7 +196,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "Color"+-- returnType : Just (TInterface "Poppler" "Color") -- throws : False -- Skip return : False @@ -225,7 +225,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -255,7 +255,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "AnnotFlag"+-- returnType : Just (TInterface "Poppler" "AnnotFlag") -- throws : False -- Skip return : False @@ -283,7 +283,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -313,7 +313,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -343,7 +343,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -370,7 +370,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -400,7 +400,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -435,7 +435,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -466,7 +466,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -496,7 +496,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False 

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

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

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

@@ -31,9 +31,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -132,7 +132,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotFileAttachment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "Attachment"+-- returnType : Just (TInterface "Poppler" "Attachment") -- throws : False -- Skip return : False @@ -161,7 +161,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotFileAttachment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False 

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

@@ -31,9 +31,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -134,7 +134,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotFreeText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "AnnotCalloutLine"+-- returnType : Just (TInterface "Poppler" "AnnotCalloutLine") -- throws : False -- Skip return : False @@ -163,7 +163,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotFreeText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "AnnotFreeTextQuadding"+-- returnType : Just (TInterface "Poppler" "AnnotFreeTextQuadding") -- throws : False -- Skip return : False 

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

@@ -30,9 +30,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -132,7 +132,7 @@ -- method type : Constructor -- 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 : []--- returnType : TInterface "Poppler" "AnnotLine"+-- returnType : Just (TInterface "Poppler" "AnnotLine") -- throws : False -- Skip return : False @@ -169,7 +169,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False 

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

@@ -91,9 +91,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -193,7 +193,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "GLib" "Date"+-- returnType : Just (TInterface "GLib" "Date") -- throws : False -- Skip return : False @@ -222,7 +222,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "AnnotExternalDataType"+-- returnType : Just (TInterface "Poppler" "AnnotExternalDataType") -- throws : False -- Skip return : False @@ -250,7 +250,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -280,7 +280,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -308,7 +308,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -336,7 +336,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -367,7 +367,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "AnnotMarkupReplyType"+-- returnType : Just (TInterface "Poppler" "AnnotMarkupReplyType") -- throws : False -- Skip return : False @@ -395,7 +395,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -425,7 +425,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -453,7 +453,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -488,7 +488,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -518,7 +518,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -549,7 +549,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -579,7 +579,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False 

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

@@ -31,9 +31,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -120,7 +120,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMovie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "Movie"+-- returnType : Just (TInterface "Poppler" "Movie") -- throws : False -- Skip return : False @@ -149,7 +149,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMovie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False 

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

@@ -26,9 +26,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -114,7 +114,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "Action"+-- returnType : Just (TInterface "Poppler" "Action") -- throws : False -- Skip return : False 

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

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

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

@@ -50,9 +50,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -156,7 +156,7 @@ -- method type : Constructor -- 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 : []--- returnType : TInterface "Poppler" "AnnotText"+-- returnType : Just (TInterface "Poppler" "AnnotText") -- throws : False -- Skip return : False @@ -185,7 +185,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -215,7 +215,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -243,7 +243,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "AnnotTextState"+-- returnType : Just (TInterface "Poppler" "AnnotTextState") -- throws : False -- Skip return : False @@ -271,7 +271,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -302,7 +302,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False 

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

@@ -47,9 +47,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -150,7 +150,7 @@ -- method type : Constructor -- 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 : []--- returnType : TInterface "Poppler" "AnnotTextMarkup"+-- returnType : Just (TInterface "Poppler" "AnnotTextMarkup") -- throws : False -- Skip return : False @@ -185,7 +185,7 @@ -- method type : Constructor -- 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 : []--- returnType : TInterface "Poppler" "AnnotTextMarkup"+-- returnType : Just (TInterface "Poppler" "AnnotTextMarkup") -- throws : False -- Skip return : False @@ -220,7 +220,7 @@ -- method type : Constructor -- 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 : []--- returnType : TInterface "Poppler" "AnnotTextMarkup"+-- returnType : Just (TInterface "Poppler" "AnnotTextMarkup") -- throws : False -- Skip return : False @@ -255,7 +255,7 @@ -- method type : Constructor -- 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 : []--- returnType : TInterface "Poppler" "AnnotTextMarkup"+-- returnType : Just (TInterface "Poppler" "AnnotTextMarkup") -- throws : False -- Skip return : False @@ -290,7 +290,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotTextMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGArray (TInterface "Poppler" "Quadrilateral")+-- returnType : Just (TGArray (TInterface "Poppler" "Quadrilateral")) -- throws : False -- Skip return : False @@ -321,7 +321,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False 

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

@@ -31,9 +31,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -108,7 +108,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -142,16 +142,16 @@  -- method Attachment::save_to_callback -- method type : OrdinaryMethod--- 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}]+-- 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 TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False  foreign import ccall "poppler_attachment_save_to_callback" poppler_attachment_save_to_callback ::      Ptr Attachment ->                       -- _obj : TInterface "Poppler" "Attachment"     FunPtr AttachmentSaveFuncC ->           -- save_func : TInterface "Poppler" "AttachmentSaveFunc"-    Ptr () ->                               -- user_data : TBasicType TVoid+    Ptr () ->                               -- user_data : TBasicType TPtr     Ptr (Ptr GError) ->                     -- error     IO CInt 

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

@@ -168,86 +168,103 @@  -- * Properties -- ** Author     DocumentAuthorPropertyInfo              ,+    documentAuthor                          ,     getDocumentAuthor                       ,   -- ** CreationDate     DocumentCreationDatePropertyInfo        ,+    documentCreationDate                    ,     getDocumentCreationDate                 ,   -- ** Creator     DocumentCreatorPropertyInfo             ,+    documentCreator                         ,     getDocumentCreator                      ,   -- ** Format     DocumentFormatPropertyInfo              ,+    documentFormat                          ,     getDocumentFormat                       ,   -- ** FormatMajor     DocumentFormatMajorPropertyInfo         ,+    documentFormatMajor                     ,     getDocumentFormatMajor                  ,   -- ** FormatMinor     DocumentFormatMinorPropertyInfo         ,+    documentFormatMinor                     ,     getDocumentFormatMinor                  ,   -- ** Keywords     DocumentKeywordsPropertyInfo            ,+    documentKeywords                        ,     getDocumentKeywords                     ,   -- ** Linearized     DocumentLinearizedPropertyInfo          ,+    documentLinearized                      ,     getDocumentLinearized                   ,   -- ** Metadata     DocumentMetadataPropertyInfo            ,+    documentMetadata                        ,     getDocumentMetadata                     ,   -- ** ModDate     DocumentModDatePropertyInfo             ,+    documentModDate                         ,     getDocumentModDate                      ,   -- ** PageLayout     DocumentPageLayoutPropertyInfo          ,+    documentPageLayout                      ,     getDocumentPageLayout                   ,   -- ** PageMode     DocumentPageModePropertyInfo            ,+    documentPageMode                        ,     getDocumentPageMode                     ,   -- ** Permissions     DocumentPermissionsPropertyInfo         ,+    documentPermissions                     ,     getDocumentPermissions                  ,   -- ** Producer     DocumentProducerPropertyInfo            ,+    documentProducer                        ,     getDocumentProducer                     ,   -- ** Subject     DocumentSubjectPropertyInfo             ,+    documentSubject                         ,     getDocumentSubject                      ,   -- ** Title     DocumentTitlePropertyInfo               ,+    documentTitle                           ,     getDocumentTitle                        ,   -- ** ViewerPreferences     DocumentViewerPreferencesPropertyInfo   ,+    documentViewerPreferences               ,     getDocumentViewerPreferences            ,  @@ -255,9 +272,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -350,27 +367,30 @@ -- VVV Prop "author"    -- Type: TBasicType TUTF8    -- Flags: [PropertyReadable]+   -- Nullable: (Nothing,Nothing) -getDocumentAuthor :: (MonadIO m, DocumentK o) => o -> m T.Text+getDocumentAuthor :: (MonadIO m, DocumentK o) => o -> m (Maybe T.Text) getDocumentAuthor obj = liftIO $ getObjectPropertyString obj "author"  data DocumentAuthorPropertyInfo instance AttrInfo DocumentAuthorPropertyInfo where-    type AttrAllowedOps DocumentAuthorPropertyInfo = '[ 'AttrGet]+    type AttrAllowedOps DocumentAuthorPropertyInfo = '[ 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint DocumentAuthorPropertyInfo = (~) ()     type AttrBaseTypeConstraint DocumentAuthorPropertyInfo = DocumentK-    type AttrGetType DocumentAuthorPropertyInfo = T.Text+    type AttrGetType DocumentAuthorPropertyInfo = (Maybe T.Text)     type AttrLabel DocumentAuthorPropertyInfo = "author"     attrGet _ = getDocumentAuthor     attrSet _ = undefined     attrConstruct _ = undefined+    attrClear _ = undefined  -- VVV Prop "creation-date"-   -- Type: TBasicType TInt32+   -- Type: TBasicType TInt    -- Flags: [PropertyReadable]+   -- Nullable: (Nothing,Nothing)  getDocumentCreationDate :: (MonadIO m, DocumentK o) => o -> m Int32-getDocumentCreationDate obj = liftIO $ getObjectPropertyCInt obj "creation-date"+getDocumentCreationDate obj = liftIO $ getObjectPropertyInt32 obj "creation-date"  data DocumentCreationDatePropertyInfo instance AttrInfo DocumentCreationDatePropertyInfo where@@ -382,49 +402,55 @@     attrGet _ = getDocumentCreationDate     attrSet _ = undefined     attrConstruct _ = undefined+    attrClear _ = undefined  -- VVV Prop "creator"    -- Type: TBasicType TUTF8    -- Flags: [PropertyReadable]+   -- Nullable: (Nothing,Nothing) -getDocumentCreator :: (MonadIO m, DocumentK o) => o -> m T.Text+getDocumentCreator :: (MonadIO m, DocumentK o) => o -> m (Maybe T.Text) getDocumentCreator obj = liftIO $ getObjectPropertyString obj "creator"  data DocumentCreatorPropertyInfo instance AttrInfo DocumentCreatorPropertyInfo where-    type AttrAllowedOps DocumentCreatorPropertyInfo = '[ 'AttrGet]+    type AttrAllowedOps DocumentCreatorPropertyInfo = '[ 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint DocumentCreatorPropertyInfo = (~) ()     type AttrBaseTypeConstraint DocumentCreatorPropertyInfo = DocumentK-    type AttrGetType DocumentCreatorPropertyInfo = T.Text+    type AttrGetType DocumentCreatorPropertyInfo = (Maybe T.Text)     type AttrLabel DocumentCreatorPropertyInfo = "creator"     attrGet _ = getDocumentCreator     attrSet _ = undefined     attrConstruct _ = undefined+    attrClear _ = undefined  -- VVV Prop "format"    -- Type: TBasicType TUTF8    -- Flags: [PropertyReadable]+   -- Nullable: (Nothing,Nothing) -getDocumentFormat :: (MonadIO m, DocumentK o) => o -> m T.Text+getDocumentFormat :: (MonadIO m, DocumentK o) => o -> m (Maybe T.Text) getDocumentFormat obj = liftIO $ getObjectPropertyString obj "format"  data DocumentFormatPropertyInfo instance AttrInfo DocumentFormatPropertyInfo where-    type AttrAllowedOps DocumentFormatPropertyInfo = '[ 'AttrGet]+    type AttrAllowedOps DocumentFormatPropertyInfo = '[ 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint DocumentFormatPropertyInfo = (~) ()     type AttrBaseTypeConstraint DocumentFormatPropertyInfo = DocumentK-    type AttrGetType DocumentFormatPropertyInfo = T.Text+    type AttrGetType DocumentFormatPropertyInfo = (Maybe T.Text)     type AttrLabel DocumentFormatPropertyInfo = "format"     attrGet _ = getDocumentFormat     attrSet _ = undefined     attrConstruct _ = undefined+    attrClear _ = undefined  -- VVV Prop "format-major"-   -- Type: TBasicType TUInt32+   -- Type: TBasicType TUInt    -- Flags: [PropertyReadable]+   -- Nullable: (Nothing,Nothing)  getDocumentFormatMajor :: (MonadIO m, DocumentK o) => o -> m Word32-getDocumentFormatMajor obj = liftIO $ getObjectPropertyCUInt obj "format-major"+getDocumentFormatMajor obj = liftIO $ getObjectPropertyUInt32 obj "format-major"  data DocumentFormatMajorPropertyInfo instance AttrInfo DocumentFormatMajorPropertyInfo where@@ -436,13 +462,15 @@     attrGet _ = getDocumentFormatMajor     attrSet _ = undefined     attrConstruct _ = undefined+    attrClear _ = undefined  -- VVV Prop "format-minor"-   -- Type: TBasicType TUInt32+   -- Type: TBasicType TUInt    -- Flags: [PropertyReadable]+   -- Nullable: (Nothing,Nothing)  getDocumentFormatMinor :: (MonadIO m, DocumentK o) => o -> m Word32-getDocumentFormatMinor obj = liftIO $ getObjectPropertyCUInt obj "format-minor"+getDocumentFormatMinor obj = liftIO $ getObjectPropertyUInt32 obj "format-minor"  data DocumentFormatMinorPropertyInfo instance AttrInfo DocumentFormatMinorPropertyInfo where@@ -454,28 +482,32 @@     attrGet _ = getDocumentFormatMinor     attrSet _ = undefined     attrConstruct _ = undefined+    attrClear _ = undefined  -- VVV Prop "keywords"    -- Type: TBasicType TUTF8    -- Flags: [PropertyReadable]+   -- Nullable: (Nothing,Nothing) -getDocumentKeywords :: (MonadIO m, DocumentK o) => o -> m T.Text+getDocumentKeywords :: (MonadIO m, DocumentK o) => o -> m (Maybe T.Text) getDocumentKeywords obj = liftIO $ getObjectPropertyString obj "keywords"  data DocumentKeywordsPropertyInfo instance AttrInfo DocumentKeywordsPropertyInfo where-    type AttrAllowedOps DocumentKeywordsPropertyInfo = '[ 'AttrGet]+    type AttrAllowedOps DocumentKeywordsPropertyInfo = '[ 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint DocumentKeywordsPropertyInfo = (~) ()     type AttrBaseTypeConstraint DocumentKeywordsPropertyInfo = DocumentK-    type AttrGetType DocumentKeywordsPropertyInfo = T.Text+    type AttrGetType DocumentKeywordsPropertyInfo = (Maybe T.Text)     type AttrLabel DocumentKeywordsPropertyInfo = "keywords"     attrGet _ = getDocumentKeywords     attrSet _ = undefined     attrConstruct _ = undefined+    attrClear _ = undefined  -- VVV Prop "linearized"    -- Type: TBasicType TBoolean    -- Flags: [PropertyReadable]+   -- Nullable: (Nothing,Nothing)  getDocumentLinearized :: (MonadIO m, DocumentK o) => o -> m Bool getDocumentLinearized obj = liftIO $ getObjectPropertyBool obj "linearized"@@ -490,31 +522,35 @@     attrGet _ = getDocumentLinearized     attrSet _ = undefined     attrConstruct _ = undefined+    attrClear _ = undefined  -- VVV Prop "metadata"    -- Type: TBasicType TUTF8    -- Flags: [PropertyReadable]+   -- Nullable: (Nothing,Nothing) -getDocumentMetadata :: (MonadIO m, DocumentK o) => o -> m T.Text+getDocumentMetadata :: (MonadIO m, DocumentK o) => o -> m (Maybe T.Text) getDocumentMetadata obj = liftIO $ getObjectPropertyString obj "metadata"  data DocumentMetadataPropertyInfo instance AttrInfo DocumentMetadataPropertyInfo where-    type AttrAllowedOps DocumentMetadataPropertyInfo = '[ 'AttrGet]+    type AttrAllowedOps DocumentMetadataPropertyInfo = '[ 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint DocumentMetadataPropertyInfo = (~) ()     type AttrBaseTypeConstraint DocumentMetadataPropertyInfo = DocumentK-    type AttrGetType DocumentMetadataPropertyInfo = T.Text+    type AttrGetType DocumentMetadataPropertyInfo = (Maybe T.Text)     type AttrLabel DocumentMetadataPropertyInfo = "metadata"     attrGet _ = getDocumentMetadata     attrSet _ = undefined     attrConstruct _ = undefined+    attrClear _ = undefined  -- VVV Prop "mod-date"-   -- Type: TBasicType TInt32+   -- Type: TBasicType TInt    -- Flags: [PropertyReadable]+   -- Nullable: (Nothing,Nothing)  getDocumentModDate :: (MonadIO m, DocumentK o) => o -> m Int32-getDocumentModDate obj = liftIO $ getObjectPropertyCInt obj "mod-date"+getDocumentModDate obj = liftIO $ getObjectPropertyInt32 obj "mod-date"  data DocumentModDatePropertyInfo instance AttrInfo DocumentModDatePropertyInfo where@@ -526,10 +562,12 @@     attrGet _ = getDocumentModDate     attrSet _ = undefined     attrConstruct _ = undefined+    attrClear _ = undefined  -- VVV Prop "page-layout"    -- Type: TInterface "Poppler" "PageLayout"    -- Flags: [PropertyReadable]+   -- Nullable: (Just False,Nothing)  getDocumentPageLayout :: (MonadIO m, DocumentK o) => o -> m PageLayout getDocumentPageLayout obj = liftIO $ getObjectPropertyEnum obj "page-layout"@@ -544,10 +582,12 @@     attrGet _ = getDocumentPageLayout     attrSet _ = undefined     attrConstruct _ = undefined+    attrClear _ = undefined  -- VVV Prop "page-mode"    -- Type: TInterface "Poppler" "PageMode"    -- Flags: [PropertyReadable]+   -- Nullable: (Just False,Nothing)  getDocumentPageMode :: (MonadIO m, DocumentK o) => o -> m PageMode getDocumentPageMode obj = liftIO $ getObjectPropertyEnum obj "page-mode"@@ -562,10 +602,12 @@     attrGet _ = getDocumentPageMode     attrSet _ = undefined     attrConstruct _ = undefined+    attrClear _ = undefined  -- VVV Prop "permissions"    -- Type: TInterface "Poppler" "Permissions"    -- Flags: [PropertyReadable]+   -- Nullable: (Just False,Nothing)  getDocumentPermissions :: (MonadIO m, DocumentK o) => o -> m [Permissions] getDocumentPermissions obj = liftIO $ getObjectPropertyFlags obj "permissions"@@ -580,64 +622,72 @@     attrGet _ = getDocumentPermissions     attrSet _ = undefined     attrConstruct _ = undefined+    attrClear _ = undefined  -- VVV Prop "producer"    -- Type: TBasicType TUTF8    -- Flags: [PropertyReadable]+   -- Nullable: (Nothing,Nothing) -getDocumentProducer :: (MonadIO m, DocumentK o) => o -> m T.Text+getDocumentProducer :: (MonadIO m, DocumentK o) => o -> m (Maybe T.Text) getDocumentProducer obj = liftIO $ getObjectPropertyString obj "producer"  data DocumentProducerPropertyInfo instance AttrInfo DocumentProducerPropertyInfo where-    type AttrAllowedOps DocumentProducerPropertyInfo = '[ 'AttrGet]+    type AttrAllowedOps DocumentProducerPropertyInfo = '[ 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint DocumentProducerPropertyInfo = (~) ()     type AttrBaseTypeConstraint DocumentProducerPropertyInfo = DocumentK-    type AttrGetType DocumentProducerPropertyInfo = T.Text+    type AttrGetType DocumentProducerPropertyInfo = (Maybe T.Text)     type AttrLabel DocumentProducerPropertyInfo = "producer"     attrGet _ = getDocumentProducer     attrSet _ = undefined     attrConstruct _ = undefined+    attrClear _ = undefined  -- VVV Prop "subject"    -- Type: TBasicType TUTF8    -- Flags: [PropertyReadable]+   -- Nullable: (Nothing,Nothing) -getDocumentSubject :: (MonadIO m, DocumentK o) => o -> m T.Text+getDocumentSubject :: (MonadIO m, DocumentK o) => o -> m (Maybe T.Text) getDocumentSubject obj = liftIO $ getObjectPropertyString obj "subject"  data DocumentSubjectPropertyInfo instance AttrInfo DocumentSubjectPropertyInfo where-    type AttrAllowedOps DocumentSubjectPropertyInfo = '[ 'AttrGet]+    type AttrAllowedOps DocumentSubjectPropertyInfo = '[ 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint DocumentSubjectPropertyInfo = (~) ()     type AttrBaseTypeConstraint DocumentSubjectPropertyInfo = DocumentK-    type AttrGetType DocumentSubjectPropertyInfo = T.Text+    type AttrGetType DocumentSubjectPropertyInfo = (Maybe T.Text)     type AttrLabel DocumentSubjectPropertyInfo = "subject"     attrGet _ = getDocumentSubject     attrSet _ = undefined     attrConstruct _ = undefined+    attrClear _ = undefined  -- VVV Prop "title"    -- Type: TBasicType TUTF8    -- Flags: [PropertyReadable]+   -- Nullable: (Nothing,Nothing) -getDocumentTitle :: (MonadIO m, DocumentK o) => o -> m T.Text+getDocumentTitle :: (MonadIO m, DocumentK o) => o -> m (Maybe T.Text) getDocumentTitle obj = liftIO $ getObjectPropertyString obj "title"  data DocumentTitlePropertyInfo instance AttrInfo DocumentTitlePropertyInfo where-    type AttrAllowedOps DocumentTitlePropertyInfo = '[ 'AttrGet]+    type AttrAllowedOps DocumentTitlePropertyInfo = '[ 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint DocumentTitlePropertyInfo = (~) ()     type AttrBaseTypeConstraint DocumentTitlePropertyInfo = DocumentK-    type AttrGetType DocumentTitlePropertyInfo = T.Text+    type AttrGetType DocumentTitlePropertyInfo = (Maybe T.Text)     type AttrLabel DocumentTitlePropertyInfo = "title"     attrGet _ = getDocumentTitle     attrSet _ = undefined     attrConstruct _ = undefined+    attrClear _ = undefined  -- VVV Prop "viewer-preferences"    -- Type: TInterface "Poppler" "ViewerPreferences"    -- Flags: [PropertyReadable]+   -- Nullable: (Nothing,Nothing)  getDocumentViewerPreferences :: (MonadIO m, DocumentK o) => o -> m [ViewerPreferences] getDocumentViewerPreferences obj = liftIO $ getObjectPropertyFlags obj "viewer-preferences"@@ -652,24 +702,76 @@     attrGet _ = getDocumentViewerPreferences     attrSet _ = undefined     attrConstruct _ = undefined+    attrClear _ = undefined  type instance AttributeList Document = DocumentAttributeList 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, *)]) +documentAuthor :: AttrLabelProxy "author"+documentAuthor = AttrLabelProxy++documentCreationDate :: AttrLabelProxy "creationDate"+documentCreationDate = AttrLabelProxy++documentCreator :: AttrLabelProxy "creator"+documentCreator = AttrLabelProxy++documentFormat :: AttrLabelProxy "format"+documentFormat = AttrLabelProxy++documentFormatMajor :: AttrLabelProxy "formatMajor"+documentFormatMajor = AttrLabelProxy++documentFormatMinor :: AttrLabelProxy "formatMinor"+documentFormatMinor = AttrLabelProxy++documentKeywords :: AttrLabelProxy "keywords"+documentKeywords = AttrLabelProxy++documentLinearized :: AttrLabelProxy "linearized"+documentLinearized = AttrLabelProxy++documentMetadata :: AttrLabelProxy "metadata"+documentMetadata = AttrLabelProxy++documentModDate :: AttrLabelProxy "modDate"+documentModDate = AttrLabelProxy++documentPageLayout :: AttrLabelProxy "pageLayout"+documentPageLayout = AttrLabelProxy++documentPageMode :: AttrLabelProxy "pageMode"+documentPageMode = AttrLabelProxy++documentPermissions :: AttrLabelProxy "permissions"+documentPermissions = AttrLabelProxy++documentProducer :: AttrLabelProxy "producer"+documentProducer = AttrLabelProxy++documentSubject :: AttrLabelProxy "subject"+documentSubject = AttrLabelProxy++documentTitle :: AttrLabelProxy "title"+documentTitle = AttrLabelProxy++documentViewerPreferences :: AttrLabelProxy "viewerPreferences"+documentViewerPreferences = AttrLabelProxy+ type instance SignalList Document = DocumentSignalList type DocumentSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  -- method Document::new_from_data -- method type : Constructor--- 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}]+-- 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 TInt, 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 : []--- returnType : TInterface "Poppler" "Document"+-- returnType : Just (TInterface "Poppler" "Document") -- throws : True -- Skip return : False  foreign import ccall "poppler_document_new_from_data" poppler_document_new_from_data ::      CString ->                              -- data : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt32+    Int32 ->                                -- length : TBasicType TInt     CString ->                              -- password : TBasicType TUTF8     Ptr (Ptr GError) ->                     -- error     IO (Ptr Document)@@ -704,7 +806,7 @@ -- method type : Constructor -- 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 : []--- returnType : TInterface "Poppler" "Document"+-- returnType : Just (TInterface "Poppler" "Document") -- throws : True -- Skip return : False @@ -743,7 +845,7 @@ -- method type : Constructor -- 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 : []--- returnType : TInterface "Poppler" "Document"+-- returnType : Just (TInterface "Poppler" "Document") -- throws : True -- Skip return : False @@ -789,7 +891,7 @@ -- method type : Constructor -- 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 : []--- returnType : TInterface "Poppler" "Document"+-- returnType : Just (TInterface "Poppler" "Document") -- throws : True -- Skip return : False @@ -837,7 +939,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TInterface "Poppler" "Dest"+-- returnType : Just (TInterface "Poppler" "Dest") -- throws : False -- Skip return : False @@ -870,7 +972,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGList (TInterface "Poppler" "Attachment")+-- returnType : Just (TGList (TInterface "Poppler" "Attachment")) -- throws : False -- Skip return : False @@ -886,7 +988,6 @@ documentGetAttachments _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_document_get_attachments _obj'-    checkUnexpectedReturnNULL "poppler_document_get_attachments" result     result' <- unpackGList result     result'' <- mapM (wrapObject Attachment) result'     g_list_free result@@ -901,7 +1002,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -931,19 +1032,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt64+-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False  foreign import ccall "poppler_document_get_creation_date" poppler_document_get_creation_date ::      Ptr Document ->                         -- _obj : TInterface "Poppler" "Document"-    IO Int64+    IO CLong   documentGetCreationDate ::     (MonadIO m, DocumentK a) =>     a                                       -- _obj-    -> m Int64                              -- result+    -> m CLong                              -- result documentGetCreationDate _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_document_get_creation_date _obj'@@ -951,14 +1052,14 @@     return result  data DocumentGetCreationDateMethodInfo-instance (signature ~ (m Int64), MonadIO m, DocumentK a) => MethodInfo DocumentGetCreationDateMethodInfo a signature where+instance (signature ~ (m CLong), MonadIO m, DocumentK a) => MethodInfo DocumentGetCreationDateMethodInfo a signature where     overloadedMethod _ = documentGetCreationDate  -- method Document::get_creator -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -986,15 +1087,15 @@  -- method Document::get_form_field -- method type : OrdinaryMethod--- 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}]+-- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "FormField"+-- returnType : Just (TInterface "Poppler" "FormField") -- throws : False -- Skip return : False  foreign import ccall "poppler_document_get_form_field" poppler_document_get_form_field ::      Ptr Document ->                         -- _obj : TInterface "Poppler" "Document"-    Int32 ->                                -- id : TBasicType TInt32+    Int32 ->                                -- id : TBasicType TInt     IO (Ptr FormField)  @@ -1019,7 +1120,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1059,7 +1160,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1089,7 +1190,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1119,19 +1220,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt64+-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False  foreign import ccall "poppler_document_get_modification_date" poppler_document_get_modification_date ::      Ptr Document ->                         -- _obj : TInterface "Poppler" "Document"-    IO Int64+    IO CLong   documentGetModificationDate ::     (MonadIO m, DocumentK a) =>     a                                       -- _obj-    -> m Int64                              -- result+    -> m CLong                              -- result documentGetModificationDate _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_document_get_modification_date _obj'@@ -1139,14 +1240,14 @@     return result  data DocumentGetModificationDateMethodInfo-instance (signature ~ (m Int64), MonadIO m, DocumentK a) => MethodInfo DocumentGetModificationDateMethodInfo a signature where+instance (signature ~ (m CLong), MonadIO m, DocumentK a) => MethodInfo DocumentGetModificationDateMethodInfo a signature where     overloadedMethod _ = documentGetModificationDate  -- method Document::get_n_attachments -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -1173,7 +1274,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1198,15 +1299,15 @@  -- method Document::get_page -- method type : OrdinaryMethod--- 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}]+-- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "Page"+-- returnType : Just (TInterface "Poppler" "Page") -- throws : False -- Skip return : False  foreign import ccall "poppler_document_get_page" poppler_document_get_page ::      Ptr Document ->                         -- _obj : TInterface "Poppler" "Document"-    Int32 ->                                -- index : TBasicType TInt32+    Int32 ->                                -- index : TBasicType TInt     IO (Ptr Page)  @@ -1231,7 +1332,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TInterface "Poppler" "Page"+-- returnType : Just (TInterface "Poppler" "Page") -- throws : False -- Skip return : False @@ -1264,7 +1365,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "PageLayout"+-- returnType : Just (TInterface "Poppler" "PageLayout") -- throws : False -- Skip return : False @@ -1292,7 +1393,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "PageMode"+-- returnType : Just (TInterface "Poppler" "PageMode") -- throws : False -- Skip return : False @@ -1318,16 +1419,16 @@  -- method Document::get_pdf_version -- method type : OrdinaryMethod--- 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}]+-- 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 TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "minor_version", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "poppler_document_get_pdf_version" poppler_document_get_pdf_version ::      Ptr Document ->                         -- _obj : TInterface "Poppler" "Document"-    Ptr Word32 ->                           -- major_version : TBasicType TUInt32-    Ptr Word32 ->                           -- minor_version : TBasicType TUInt32+    Ptr Word32 ->                           -- major_version : TBasicType TUInt+    Ptr Word32 ->                           -- minor_version : TBasicType TUInt     IO ()  @@ -1355,7 +1456,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1385,7 +1486,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "Permissions"+-- returnType : Just (TInterface "Poppler" "Permissions") -- throws : False -- Skip return : False @@ -1413,7 +1514,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1443,7 +1544,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1473,7 +1574,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1503,7 +1604,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1531,7 +1632,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1559,7 +1660,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -1595,7 +1696,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False 

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

@@ -35,9 +35,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -112,7 +112,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "document", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "FontInfo"+-- returnType : Just (TInterface "Poppler" "FontInfo") -- throws : False -- Skip return : False @@ -137,7 +137,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FontInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -162,15 +162,15 @@  -- method FontInfo::scan -- method type : OrdinaryMethod--- 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}]+-- 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 TInt, 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 : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False  foreign import ccall "poppler_font_info_scan" poppler_font_info_scan ::      Ptr FontInfo ->                         -- _obj : TInterface "Poppler" "FontInfo"-    Int32 ->                                -- n_pages : TBasicType TInt32+    Int32 ->                                -- n_pages : TBasicType TInt     Ptr (Ptr FontsIter) ->                  -- iter : TInterface "Poppler" "FontsIter"     IO CInt 

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

@@ -181,9 +181,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -288,7 +288,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "FormButtonType"+-- returnType : Just (TInterface "Poppler" "FormButtonType") -- throws : False -- Skip return : False @@ -316,7 +316,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -344,7 +344,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -374,7 +374,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -402,7 +402,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -430,7 +430,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -458,7 +458,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "FormChoiceType"+-- returnType : Just (TInterface "Poppler" "FormChoiceType") -- throws : False -- Skip return : False @@ -484,15 +484,15 @@  -- method FormField::choice_get_item -- method type : OrdinaryMethod--- 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}]+-- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False  foreign import ccall "poppler_form_field_choice_get_item" poppler_form_field_choice_get_item ::      Ptr FormField ->                        -- _obj : TInterface "Poppler" "FormField"-    Int32 ->                                -- index : TBasicType TInt32+    Int32 ->                                -- index : TBasicType TInt     IO CString  @@ -518,7 +518,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -545,7 +545,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -575,7 +575,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -601,15 +601,15 @@  -- method FormField::choice_is_item_selected -- method type : OrdinaryMethod--- 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}]+-- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False  foreign import ccall "poppler_form_field_choice_is_item_selected" poppler_form_field_choice_is_item_selected ::      Ptr FormField ->                        -- _obj : TInterface "Poppler" "FormField"-    Int32 ->                                -- index : TBasicType TInt32+    Int32 ->                                -- index : TBasicType TInt     IO CInt  @@ -631,15 +631,15 @@  -- method FormField::choice_select_item -- method type : OrdinaryMethod--- 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}]+-- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "poppler_form_field_choice_select_item" poppler_form_field_choice_select_item ::      Ptr FormField ->                        -- _obj : TInterface "Poppler" "FormField"-    Int32 ->                                -- index : TBasicType TInt32+    Int32 ->                                -- index : TBasicType TInt     IO ()  @@ -662,7 +662,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -691,15 +691,15 @@  -- method FormField::choice_toggle_item -- method type : OrdinaryMethod--- 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}]+-- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "poppler_form_field_choice_toggle_item" poppler_form_field_choice_toggle_item ::      Ptr FormField ->                        -- _obj : TInterface "Poppler" "FormField"-    Int32 ->                                -- index : TBasicType TInt32+    Int32 ->                                -- index : TBasicType TInt     IO ()  @@ -722,7 +722,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -749,7 +749,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "Action"+-- returnType : Just (TInterface "Poppler" "Action") -- throws : False -- Skip return : False @@ -778,7 +778,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "FormFieldType"+-- returnType : Just (TInterface "Poppler" "FormFieldType") -- throws : False -- Skip return : False @@ -806,7 +806,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -834,7 +834,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -861,7 +861,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -891,7 +891,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -921,7 +921,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -951,7 +951,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -979,7 +979,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1007,7 +1007,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1035,7 +1035,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1062,7 +1062,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1092,7 +1092,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "FormTextType"+-- returnType : Just (TInterface "Poppler" "FormTextType") -- throws : False -- Skip return : False @@ -1120,7 +1120,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1148,7 +1148,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1176,7 +1176,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False 

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

@@ -51,9 +51,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -132,7 +132,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -159,7 +159,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -188,7 +188,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -215,7 +215,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -243,7 +243,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -271,7 +271,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False 

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

@@ -46,9 +46,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -126,7 +126,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Media", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -155,7 +155,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Media", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -184,7 +184,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Media", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -212,7 +212,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -246,16 +246,16 @@  -- method Media::save_to_callback -- method type : OrdinaryMethod--- 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}]+-- 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 TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False  foreign import ccall "poppler_media_save_to_callback" poppler_media_save_to_callback ::      Ptr Media ->                            -- _obj : TInterface "Poppler" "Media"     FunPtr MediaSaveFuncC ->                -- save_func : TInterface "Poppler" "MediaSaveFunc"-    Ptr () ->                               -- user_data : TBasicType TVoid+    Ptr () ->                               -- user_data : TBasicType TPtr     Ptr (Ptr GError) ->                     -- error     IO CInt 

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

@@ -36,9 +36,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -114,7 +114,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Movie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -143,7 +143,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Movie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -171,7 +171,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Movie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False 

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

@@ -40,9 +40,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -116,17 +116,17 @@  -- method PSFile::new -- method type : Constructor--- Args : [Arg {argCName = "document", argType = TInterface "Poppler" "Document", 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},Arg {argCName = "first_page", argType = TBasicType TInt32, 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}]+-- Args : [Arg {argCName = "document", argType = TInterface "Poppler" "Document", 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},Arg {argCName = "first_page", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_pages", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "PSFile"+-- returnType : Just (TInterface "Poppler" "PSFile") -- throws : False -- Skip return : False  foreign import ccall "poppler_ps_file_new" poppler_ps_file_new ::      Ptr Document ->                         -- document : TInterface "Poppler" "Document"     CString ->                              -- filename : TBasicType TUTF8-    Int32 ->                                -- first_page : TBasicType TInt32-    Int32 ->                                -- n_pages : TBasicType TInt32+    Int32 ->                                -- first_page : TBasicType TInt+    Int32 ->                                -- n_pages : TBasicType TInt     IO (Ptr PSFile)  @@ -151,7 +151,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "PSFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -178,7 +178,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "PSFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "duplex", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -208,7 +208,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "PSFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False 

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

@@ -202,15 +202,16 @@ -- ** Label     PageLabelPropertyInfo                   ,     getPageLabel                            ,+    pageLabel                               ,         ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -308,24 +309,29 @@ -- VVV Prop "label"    -- Type: TBasicType TUTF8    -- Flags: [PropertyReadable]+   -- Nullable: (Nothing,Nothing) -getPageLabel :: (MonadIO m, PageK o) => o -> m T.Text+getPageLabel :: (MonadIO m, PageK o) => o -> m (Maybe T.Text) getPageLabel obj = liftIO $ getObjectPropertyString obj "label"  data PageLabelPropertyInfo instance AttrInfo PageLabelPropertyInfo where-    type AttrAllowedOps PageLabelPropertyInfo = '[ 'AttrGet]+    type AttrAllowedOps PageLabelPropertyInfo = '[ 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint PageLabelPropertyInfo = (~) ()     type AttrBaseTypeConstraint PageLabelPropertyInfo = PageK-    type AttrGetType PageLabelPropertyInfo = T.Text+    type AttrGetType PageLabelPropertyInfo = (Maybe T.Text)     type AttrLabel PageLabelPropertyInfo = "label"     attrGet _ = getPageLabel     attrSet _ = undefined     attrConstruct _ = undefined+    attrClear _ = undefined  type instance AttributeList Page = PageAttributeList type PageAttributeList = ('[ '("label", PageLabelPropertyInfo)] :: [(Symbol, *)]) +pageLabel :: AttrLabelProxy "label"+pageLabel = AttrLabelProxy+ type instance SignalList Page = PageSignalList type PageSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -333,7 +339,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "annot", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -364,7 +370,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", 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 : []--- returnType : TGList (TInterface "Poppler" "Rectangle")+-- returnType : Just (TGList (TInterface "Poppler" "Rectangle")) -- throws : False -- Skip return : False @@ -383,7 +389,6 @@     let _obj' = unsafeManagedPtrCastPtr _obj     text' <- textToCString text     result <- poppler_page_find_text _obj' text'-    checkUnexpectedReturnNULL "poppler_page_find_text" result     result' <- unpackGList result     result'' <- mapM (wrapBoxed Rectangle) result'     g_list_free result@@ -399,7 +404,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "options", argType = TInterface "Poppler" "FindFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGList (TInterface "Poppler" "Rectangle")+-- returnType : Just (TGList (TInterface "Poppler" "Rectangle")) -- throws : False -- Skip return : False @@ -421,7 +426,6 @@     text' <- textToCString text     let options' = gflagsToWord options     result <- poppler_page_find_text_with_options _obj' text' options'-    checkUnexpectedReturnNULL "poppler_page_find_text_with_options" result     result' <- unpackGList result     result'' <- mapM (wrapBoxed Rectangle) result'     g_list_free result@@ -437,7 +441,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGList (TInterface "Poppler" "AnnotMapping")+-- returnType : Just (TGList (TInterface "Poppler" "AnnotMapping")) -- throws : False -- Skip return : False @@ -453,7 +457,6 @@ pageGetAnnotMapping _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_page_get_annot_mapping _obj'-    checkUnexpectedReturnNULL "poppler_page_get_annot_mapping" result     result' <- unpackGList result     result'' <- mapM (wrapBoxed AnnotMapping) result'     g_list_free result@@ -468,7 +471,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -498,7 +501,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -526,7 +529,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGList (TInterface "Poppler" "FormFieldMapping")+-- returnType : Just (TGList (TInterface "Poppler" "FormFieldMapping")) -- throws : False -- Skip return : False @@ -542,7 +545,6 @@ pageGetFormFieldMapping _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_page_get_form_field_mapping _obj'-    checkUnexpectedReturnNULL "poppler_page_get_form_field_mapping" result     result' <- unpackGList result     result'' <- mapM (wrapBoxed FormFieldMapping) result'     g_list_free result@@ -555,15 +557,15 @@  -- method Page::get_image -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "image_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "image_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "cairo" "Surface"+-- returnType : Just (TInterface "cairo" "Surface") -- throws : False -- Skip return : False  foreign import ccall "poppler_page_get_image" poppler_page_get_image ::      Ptr Page ->                             -- _obj : TInterface "Poppler" "Page"-    Int32 ->                                -- image_id : TBasicType TInt32+    Int32 ->                                -- image_id : TBasicType TInt     IO (Ptr Cairo.Surface)  @@ -588,7 +590,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGList (TInterface "Poppler" "ImageMapping")+-- returnType : Just (TGList (TInterface "Poppler" "ImageMapping")) -- throws : False -- Skip return : False @@ -604,7 +606,6 @@ pageGetImageMapping _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_page_get_image_mapping _obj'-    checkUnexpectedReturnNULL "poppler_page_get_image_mapping" result     result' <- unpackGList result     result'' <- mapM (wrapBoxed ImageMapping) result'     g_list_free result@@ -619,7 +620,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -646,7 +647,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -676,7 +677,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGList (TInterface "Poppler" "LinkMapping")+-- returnType : Just (TGList (TInterface "Poppler" "LinkMapping")) -- throws : False -- Skip return : False @@ -692,7 +693,6 @@ pageGetLinkMapping _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_page_get_link_mapping _obj'-    checkUnexpectedReturnNULL "poppler_page_get_link_mapping" result     result' <- unpackGList result     result'' <- mapM (wrapBoxed LinkMapping) result'     g_list_free result@@ -707,7 +707,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Poppler" "SelectionStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "cairo" "Region"+-- returnType : Just (TInterface "cairo" "Region") -- throws : False -- Skip return : False @@ -746,7 +746,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Poppler" "SelectionStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -783,7 +783,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Poppler" "SelectionStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGList (TInterface "Poppler" "Rectangle")+-- returnType : Just (TGList (TInterface "Poppler" "Rectangle")) -- throws : False -- Skip return : False @@ -808,7 +808,6 @@     let style' = (fromIntegral . fromEnum) style     let selection' = unsafeManagedPtrGetPtr selection     result <- poppler_page_get_selection_region _obj' scale' style' selection'-    checkUnexpectedReturnNULL "poppler_page_get_selection_region" result     result' <- unpackGList result     result'' <- mapM (wrapBoxed Rectangle) result'     g_list_free result@@ -824,7 +823,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -861,7 +860,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -891,7 +890,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGList (TInterface "Poppler" "TextAttributes")+-- returnType : Just (TGList (TInterface "Poppler" "TextAttributes")) -- throws : False -- Skip return : False @@ -907,7 +906,6 @@ pageGetTextAttributes _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_page_get_text_attributes _obj'-    checkUnexpectedReturnNULL "poppler_page_get_text_attributes" result     result' <- unpackGList result     result'' <- mapM (wrapBoxed TextAttributes) result'     g_list_free result@@ -922,7 +920,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "area", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGList (TInterface "Poppler" "TextAttributes")+-- returnType : Just (TGList (TInterface "Poppler" "TextAttributes")) -- throws : False -- Skip return : False @@ -941,7 +939,6 @@     let _obj' = unsafeManagedPtrCastPtr _obj     let area' = unsafeManagedPtrGetPtr area     result <- poppler_page_get_text_attributes_for_area _obj' area'-    checkUnexpectedReturnNULL "poppler_page_get_text_attributes_for_area" result     result' <- unpackGList result     result'' <- mapM (wrapBoxed TextAttributes) result'     g_list_free result@@ -957,7 +954,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "area", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -989,16 +986,16 @@  -- method Page::get_text_layout -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rectangles", argType = TCArray False (-1) 2 (TInterface "Poppler" "Rectangle"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferContainer},Arg {argCName = "n_rectangles", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "n_rectangles", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : TBasicType TBoolean+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rectangles", argType = TCArray False (-1) 2 (TInterface "Poppler" "Rectangle"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferContainer},Arg {argCName = "n_rectangles", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "n_rectangles", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False  foreign import ccall "poppler_page_get_text_layout" poppler_page_get_text_layout ::      Ptr Page ->                             -- _obj : TInterface "Poppler" "Page"     Ptr (Ptr Rectangle) ->                  -- rectangles : TCArray False (-1) 2 (TInterface "Poppler" "Rectangle")-    Ptr Word32 ->                           -- n_rectangles : TBasicType TUInt32+    Ptr Word32 ->                           -- n_rectangles : TBasicType TUInt     IO CInt  @@ -1028,9 +1025,9 @@  -- method Page::get_text_layout_for_area -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "area", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rectangles", argType = TCArray False (-1) 3 (TInterface "Poppler" "Rectangle"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferContainer},Arg {argCName = "n_rectangles", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "n_rectangles", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : TBasicType TBoolean+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "area", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rectangles", argType = TCArray False (-1) 3 (TInterface "Poppler" "Rectangle"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferContainer},Arg {argCName = "n_rectangles", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "n_rectangles", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1038,7 +1035,7 @@     Ptr Page ->                             -- _obj : TInterface "Poppler" "Page"     Ptr Rectangle ->                        -- area : TInterface "Poppler" "Rectangle"     Ptr (Ptr Rectangle) ->                  -- rectangles : TCArray False (-1) 3 (TInterface "Poppler" "Rectangle")-    Ptr Word32 ->                           -- n_rectangles : TBasicType TUInt32+    Ptr Word32 ->                           -- n_rectangles : TBasicType TUInt     IO CInt  @@ -1073,7 +1070,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "cairo" "Surface"+-- returnType : Just (TInterface "cairo" "Surface") -- throws : False -- Skip return : False @@ -1100,16 +1097,16 @@  -- method Page::get_thumbnail_size -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False  foreign import ccall "poppler_page_get_thumbnail_size" poppler_page_get_thumbnail_size ::      Ptr Page ->                             -- _obj : TInterface "Poppler" "Page"-    Ptr Int32 ->                            -- width : TBasicType TInt32-    Ptr Int32 ->                            -- height : TBasicType TInt32+    Ptr Int32 ->                            -- width : TBasicType TInt+    Ptr Int32 ->                            -- height : TBasicType TInt     IO CInt  @@ -1138,7 +1135,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "PageTransition"+-- returnType : Just (TInterface "Poppler" "PageTransition") -- throws : False -- Skip return : False @@ -1167,7 +1164,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "annot", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1198,7 +1195,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cairo", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1229,7 +1226,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cairo", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1260,7 +1257,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cairo", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "options", argType = TInterface "Poppler" "PrintFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1294,7 +1291,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cairo", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "old_selection", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Poppler" "SelectionStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "glyph_color", argType = TInterface "Poppler" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "background_color", argType = TInterface "Poppler" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1344,7 +1341,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ps_file", argType = TInterface "Poppler" "PSFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1375,7 +1372,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "list", argType = TGList (TInterface "Poppler" "AnnotMapping"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1400,7 +1397,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "list", argType = TGList (TInterface "Poppler" "FormFieldMapping"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1425,7 +1422,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "list", argType = TGList (TInterface "Poppler" "ImageMapping"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1450,7 +1447,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "list", argType = TGList (TInterface "Poppler" "LinkMapping"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1475,7 +1472,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "list", argType = TGList (TInterface "Poppler" "TextAttributes"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1500,7 +1497,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "region", argType = TGList (TInterface "Poppler" "Rectangle"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False 

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

@@ -296,9 +296,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -426,7 +426,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -456,7 +456,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -486,7 +486,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -516,7 +516,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Poppler" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -547,7 +547,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -575,7 +575,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "StructureBlockAlign"+-- returnType : Just (TInterface "Poppler" "StructureBlockAlign") -- throws : False -- Skip return : False @@ -603,7 +603,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "colors", argType = TCArray False 4 (-1) (TInterface "Poppler" "Color"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -639,7 +639,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "border_styles", argType = TCArray False 4 (-1) (TInterface "Poppler" "StructureBorderStyle"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -673,7 +673,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "border_thicknesses", argType = TCArray False 4 (-1) (TBasicType TDouble), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -707,7 +707,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bounding_box", argType = TInterface "Poppler" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -738,7 +738,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Poppler" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -769,7 +769,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -794,15 +794,15 @@  -- method StructureElement::get_column_gaps -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "n_values", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : TCArray False (-1) 1 (TBasicType TDouble)+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "n_values", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- returnType : Just (TCArray False (-1) 1 (TBasicType TDouble)) -- throws : False -- Skip return : False  foreign import ccall "poppler_structure_element_get_column_gaps" poppler_structure_element_get_column_gaps ::      Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    Ptr Word32 ->                           -- n_values : TBasicType TUInt32+    Ptr Word32 ->                           -- n_values : TBasicType TUInt     IO (Ptr CDouble)  @@ -828,15 +828,15 @@  -- method StructureElement::get_column_widths -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "n_values", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : TCArray False (-1) 1 (TBasicType TDouble)+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "n_values", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- returnType : Just (TCArray False (-1) 1 (TBasicType TDouble)) -- throws : False -- Skip return : False  foreign import ccall "poppler_structure_element_get_column_widths" poppler_structure_element_get_column_widths ::      Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    Ptr Word32 ->                           -- n_values : TBasicType TUInt32+    Ptr Word32 ->                           -- n_values : TBasicType TUInt     IO (Ptr CDouble)  @@ -864,7 +864,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -892,7 +892,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -922,7 +922,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "StructureFormRole"+-- returnType : Just (TInterface "Poppler" "StructureFormRole") -- throws : False -- Skip return : False @@ -950,7 +950,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "StructureFormState"+-- returnType : Just (TInterface "Poppler" "StructureFormState") -- throws : False -- Skip return : False @@ -978,7 +978,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "StructureGlyphOrientation"+-- returnType : Just (TInterface "Poppler" "StructureGlyphOrientation") -- throws : False -- Skip return : False @@ -1006,7 +1006,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -1034,7 +1034,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1064,7 +1064,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "StructureInlineAlign"+-- returnType : Just (TInterface "Poppler" "StructureInlineAlign") -- throws : False -- Skip return : False @@ -1092,7 +1092,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "StructureElementKind"+-- returnType : Just (TInterface "Poppler" "StructureElementKind") -- throws : False -- Skip return : False @@ -1120,7 +1120,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1150,7 +1150,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -1178,7 +1178,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "StructureListNumbering"+-- returnType : Just (TInterface "Poppler" "StructureListNumbering") -- throws : False -- Skip return : False @@ -1206,7 +1206,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "paddings", argType = TCArray False 4 (-1) (TBasicType TDouble), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1239,7 +1239,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1266,7 +1266,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "StructurePlacement"+-- returnType : Just (TInterface "Poppler" "StructurePlacement") -- throws : False -- Skip return : False @@ -1294,7 +1294,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "StructureRubyAlign"+-- returnType : Just (TInterface "Poppler" "StructureRubyAlign") -- throws : False -- Skip return : False @@ -1322,7 +1322,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "StructureRubyPosition"+-- returnType : Just (TInterface "Poppler" "StructureRubyPosition") -- throws : False -- Skip return : False @@ -1350,7 +1350,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -1378,7 +1378,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -1406,7 +1406,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -1434,7 +1434,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "border_styles", argType = TCArray False 4 (-1) (TInterface "Poppler" "StructureBorderStyle"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1468,7 +1468,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -1495,7 +1495,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)+-- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -1526,7 +1526,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "paddings", argType = TCArray False 4 (-1) (TBasicType TDouble), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1559,7 +1559,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -1586,7 +1586,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "StructureTableScope"+-- returnType : Just (TInterface "Poppler" "StructureTableScope") -- throws : False -- Skip return : False @@ -1614,7 +1614,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1644,7 +1644,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Poppler" "StructureGetTextFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1677,7 +1677,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "StructureTextAlign"+-- returnType : Just (TInterface "Poppler" "StructureTextAlign") -- throws : False -- Skip return : False @@ -1705,7 +1705,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Poppler" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1736,7 +1736,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -1764,7 +1764,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "StructureTextDecoration"+-- returnType : Just (TInterface "Poppler" "StructureTextDecoration") -- throws : False -- Skip return : False @@ -1792,7 +1792,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -1818,15 +1818,15 @@  -- method StructureElement::get_text_spans -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_text_spans", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "n_text_spans", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : TCArray False (-1) 1 (TInterface "Poppler" "TextSpan")+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_text_spans", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "n_text_spans", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- returnType : Just (TCArray False (-1) 1 (TInterface "Poppler" "TextSpan")) -- throws : False -- Skip return : False  foreign import ccall "poppler_structure_element_get_text_spans" poppler_structure_element_get_text_spans ::      Ptr StructureElement ->                 -- _obj : TInterface "Poppler" "StructureElement"-    Ptr Word32 ->                           -- n_text_spans : TBasicType TUInt32+    Ptr Word32 ->                           -- n_text_spans : TBasicType TUInt     IO (Ptr (Ptr TextSpan))  @@ -1855,7 +1855,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1885,7 +1885,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -1913,7 +1913,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Poppler" "StructureWritingMode"+-- returnType : Just (TInterface "Poppler" "StructureWritingMode") -- throws : False -- Skip return : False @@ -1941,7 +1941,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1969,7 +1969,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1997,7 +1997,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2025,7 +2025,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False 

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

@@ -68,9 +68,9 @@ import GI.Poppler.Structs.TextAttributes import GI.Poppler.Structs.TextSpan -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -17,20 +17,25 @@   -- * Properties -- ** Title+    actionAnyClearTitle                     ,     actionAnyReadTitle                      ,+    actionAnyTitle                          ,+    actionAnyWriteTitle                     ,   -- ** Type     actionAnyReadType                       ,+    actionAnyType                           ,+    actionAnyWriteType                      ,         ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -43,20 +48,78 @@ newZeroActionAny :: MonadIO m => m ActionAny newZeroActionAny = liftIO $ callocBytes 16 >>= wrapPtr ActionAny +instance tag ~ 'AttrSet => Constructible ActionAny tag where+    new _ attrs = do+        o <- newZeroActionAny+        GI.Attributes.set o attrs+        return o++ noActionAny :: Maybe ActionAny noActionAny = Nothing -actionAnyReadType :: ActionAny -> IO ActionType-actionAnyReadType s = withManagedPtr s $ \ptr -> do+actionAnyReadType :: MonadIO m => ActionAny -> m ActionType+actionAnyReadType s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 0) :: IO CUInt     let val' = (toEnum . fromIntegral) val     return val' -actionAnyReadTitle :: ActionAny -> IO T.Text-actionAnyReadTitle s = withManagedPtr s $ \ptr -> do+actionAnyWriteType :: MonadIO m => ActionAny -> ActionType -> m ()+actionAnyWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do+    let val' = (fromIntegral . fromEnum) val+    poke (ptr `plusPtr` 0) (val' :: CUInt)++data ActionAnyTypeFieldInfo+instance AttrInfo ActionAnyTypeFieldInfo where+    type AttrAllowedOps ActionAnyTypeFieldInfo = '[ 'AttrSet, 'AttrGet]+    type AttrSetTypeConstraint ActionAnyTypeFieldInfo = (~) ActionType+    type AttrBaseTypeConstraint ActionAnyTypeFieldInfo = (~) ActionAny+    type AttrGetType ActionAnyTypeFieldInfo = ActionType+    type AttrLabel ActionAnyTypeFieldInfo = "type"+    attrGet _ = actionAnyReadType+    attrSet _ = actionAnyWriteType+    attrConstruct = undefined+    attrClear _ = undefined++actionAnyType :: AttrLabelProxy "type"+actionAnyType = AttrLabelProxy+++actionAnyReadTitle :: MonadIO m => ActionAny -> m (Maybe T.Text)+actionAnyReadTitle s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 8) :: IO CString-    val' <- cstringToText val-    return val'+    result <- convertIfNonNull val $ \val' -> do+        val'' <- cstringToText val'+        return val''+    return result++actionAnyWriteTitle :: MonadIO m => ActionAny -> CString -> m ()+actionAnyWriteTitle s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 8) (val :: CString)++actionAnyClearTitle :: MonadIO m => ActionAny -> m ()+actionAnyClearTitle s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 8) (nullPtr :: CString)++data ActionAnyTitleFieldInfo+instance AttrInfo ActionAnyTitleFieldInfo where+    type AttrAllowedOps ActionAnyTitleFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint ActionAnyTitleFieldInfo = (~) CString+    type AttrBaseTypeConstraint ActionAnyTitleFieldInfo = (~) ActionAny+    type AttrGetType ActionAnyTitleFieldInfo = Maybe T.Text+    type AttrLabel ActionAnyTitleFieldInfo = "title"+    attrGet _ = actionAnyReadTitle+    attrSet _ = actionAnyWriteTitle+    attrConstruct = undefined+    attrClear _ = actionAnyClearTitle++actionAnyTitle :: AttrLabelProxy "title"+actionAnyTitle = AttrLabelProxy++++type instance AttributeList ActionAny = ActionAnyAttributeList+type ActionAnyAttributeList = ('[ '("type", ActionAnyTypeFieldInfo), '("title", ActionAnyTitleFieldInfo)] :: [(Symbol, *)])  type family ResolveActionAnyMethod (t :: Symbol) (o :: *) :: * where     ResolveActionAnyMethod l o = MethodResolutionFailed l o

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

@@ -17,24 +17,32 @@   -- * Properties -- ** Dest+    actionGotoDestClearDest                 ,+    actionGotoDestDest                      ,     actionGotoDestReadDest                  ,+    actionGotoDestWriteDest                 ,   -- ** Title+    actionGotoDestClearTitle                ,     actionGotoDestReadTitle                 ,+    actionGotoDestTitle                     ,+    actionGotoDestWriteTitle                ,   -- ** Type     actionGotoDestReadType                  ,+    actionGotoDestType                      ,+    actionGotoDestWriteType                 ,         ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -47,26 +55,110 @@ newZeroActionGotoDest :: MonadIO m => m ActionGotoDest newZeroActionGotoDest = liftIO $ callocBytes 24 >>= wrapPtr ActionGotoDest +instance tag ~ 'AttrSet => Constructible ActionGotoDest tag where+    new _ attrs = do+        o <- newZeroActionGotoDest+        GI.Attributes.set o attrs+        return o++ noActionGotoDest :: Maybe ActionGotoDest noActionGotoDest = Nothing -actionGotoDestReadType :: ActionGotoDest -> IO ActionType-actionGotoDestReadType s = withManagedPtr s $ \ptr -> do+actionGotoDestReadType :: MonadIO m => ActionGotoDest -> m ActionType+actionGotoDestReadType s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 0) :: IO CUInt     let val' = (toEnum . fromIntegral) val     return val' -actionGotoDestReadTitle :: ActionGotoDest -> IO T.Text-actionGotoDestReadTitle s = withManagedPtr s $ \ptr -> do+actionGotoDestWriteType :: MonadIO m => ActionGotoDest -> ActionType -> m ()+actionGotoDestWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do+    let val' = (fromIntegral . fromEnum) val+    poke (ptr `plusPtr` 0) (val' :: CUInt)++data ActionGotoDestTypeFieldInfo+instance AttrInfo ActionGotoDestTypeFieldInfo where+    type AttrAllowedOps ActionGotoDestTypeFieldInfo = '[ 'AttrSet, 'AttrGet]+    type AttrSetTypeConstraint ActionGotoDestTypeFieldInfo = (~) ActionType+    type AttrBaseTypeConstraint ActionGotoDestTypeFieldInfo = (~) ActionGotoDest+    type AttrGetType ActionGotoDestTypeFieldInfo = ActionType+    type AttrLabel ActionGotoDestTypeFieldInfo = "type"+    attrGet _ = actionGotoDestReadType+    attrSet _ = actionGotoDestWriteType+    attrConstruct = undefined+    attrClear _ = undefined++actionGotoDestType :: AttrLabelProxy "type"+actionGotoDestType = AttrLabelProxy+++actionGotoDestReadTitle :: MonadIO m => ActionGotoDest -> m (Maybe T.Text)+actionGotoDestReadTitle s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 8) :: IO CString-    val' <- cstringToText val-    return val'+    result <- convertIfNonNull val $ \val' -> do+        val'' <- cstringToText val'+        return val''+    return result -actionGotoDestReadDest :: ActionGotoDest -> IO Dest-actionGotoDestReadDest s = withManagedPtr s $ \ptr -> do+actionGotoDestWriteTitle :: MonadIO m => ActionGotoDest -> CString -> m ()+actionGotoDestWriteTitle s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 8) (val :: CString)++actionGotoDestClearTitle :: MonadIO m => ActionGotoDest -> m ()+actionGotoDestClearTitle s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 8) (nullPtr :: CString)++data ActionGotoDestTitleFieldInfo+instance AttrInfo ActionGotoDestTitleFieldInfo where+    type AttrAllowedOps ActionGotoDestTitleFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint ActionGotoDestTitleFieldInfo = (~) CString+    type AttrBaseTypeConstraint ActionGotoDestTitleFieldInfo = (~) ActionGotoDest+    type AttrGetType ActionGotoDestTitleFieldInfo = Maybe T.Text+    type AttrLabel ActionGotoDestTitleFieldInfo = "title"+    attrGet _ = actionGotoDestReadTitle+    attrSet _ = actionGotoDestWriteTitle+    attrConstruct = undefined+    attrClear _ = actionGotoDestClearTitle++actionGotoDestTitle :: AttrLabelProxy "title"+actionGotoDestTitle = AttrLabelProxy+++actionGotoDestReadDest :: MonadIO m => ActionGotoDest -> m (Maybe Dest)+actionGotoDestReadDest s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 16) :: IO (Ptr Dest)-    val' <- (newBoxed Dest) val-    return val'+    result <- convertIfNonNull val $ \val' -> do+        val'' <- (newBoxed Dest) val'+        return val''+    return result++actionGotoDestWriteDest :: MonadIO m => ActionGotoDest -> Ptr Dest -> m ()+actionGotoDestWriteDest s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 16) (val :: Ptr Dest)++actionGotoDestClearDest :: MonadIO m => ActionGotoDest -> m ()+actionGotoDestClearDest s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 16) (nullPtr :: Ptr Dest)++data ActionGotoDestDestFieldInfo+instance AttrInfo ActionGotoDestDestFieldInfo where+    type AttrAllowedOps ActionGotoDestDestFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint ActionGotoDestDestFieldInfo = (~) (Ptr Dest)+    type AttrBaseTypeConstraint ActionGotoDestDestFieldInfo = (~) ActionGotoDest+    type AttrGetType ActionGotoDestDestFieldInfo = Maybe Dest+    type AttrLabel ActionGotoDestDestFieldInfo = "dest"+    attrGet _ = actionGotoDestReadDest+    attrSet _ = actionGotoDestWriteDest+    attrConstruct = undefined+    attrClear _ = actionGotoDestClearDest++actionGotoDestDest :: AttrLabelProxy "dest"+actionGotoDestDest = AttrLabelProxy++++type instance AttributeList ActionGotoDest = ActionGotoDestAttributeList+type ActionGotoDestAttributeList = ('[ '("type", ActionGotoDestTypeFieldInfo), '("title", ActionGotoDestTitleFieldInfo), '("dest", ActionGotoDestDestFieldInfo)] :: [(Symbol, *)])  type family ResolveActionGotoDestMethod (t :: Symbol) (o :: *) :: * where     ResolveActionGotoDestMethod l o = MethodResolutionFailed l o

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

@@ -17,28 +17,39 @@   -- * Properties -- ** Dest+    actionGotoRemoteClearDest               ,+    actionGotoRemoteDest                    ,     actionGotoRemoteReadDest                ,+    actionGotoRemoteWriteDest               ,   -- ** FileName+    actionGotoRemoteClearFileName           ,+    actionGotoRemoteFileName                ,     actionGotoRemoteReadFileName            ,+    actionGotoRemoteWriteFileName           ,   -- ** Title+    actionGotoRemoteClearTitle              ,     actionGotoRemoteReadTitle               ,+    actionGotoRemoteTitle                   ,+    actionGotoRemoteWriteTitle              ,   -- ** Type     actionGotoRemoteReadType                ,+    actionGotoRemoteType                    ,+    actionGotoRemoteWriteType               ,         ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -51,32 +62,142 @@ newZeroActionGotoRemote :: MonadIO m => m ActionGotoRemote newZeroActionGotoRemote = liftIO $ callocBytes 32 >>= wrapPtr ActionGotoRemote +instance tag ~ 'AttrSet => Constructible ActionGotoRemote tag where+    new _ attrs = do+        o <- newZeroActionGotoRemote+        GI.Attributes.set o attrs+        return o++ noActionGotoRemote :: Maybe ActionGotoRemote noActionGotoRemote = Nothing -actionGotoRemoteReadType :: ActionGotoRemote -> IO ActionType-actionGotoRemoteReadType s = withManagedPtr s $ \ptr -> do+actionGotoRemoteReadType :: MonadIO m => ActionGotoRemote -> m ActionType+actionGotoRemoteReadType s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 0) :: IO CUInt     let val' = (toEnum . fromIntegral) val     return val' -actionGotoRemoteReadTitle :: ActionGotoRemote -> IO T.Text-actionGotoRemoteReadTitle s = withManagedPtr s $ \ptr -> do+actionGotoRemoteWriteType :: MonadIO m => ActionGotoRemote -> ActionType -> m ()+actionGotoRemoteWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do+    let val' = (fromIntegral . fromEnum) val+    poke (ptr `plusPtr` 0) (val' :: CUInt)++data ActionGotoRemoteTypeFieldInfo+instance AttrInfo ActionGotoRemoteTypeFieldInfo where+    type AttrAllowedOps ActionGotoRemoteTypeFieldInfo = '[ 'AttrSet, 'AttrGet]+    type AttrSetTypeConstraint ActionGotoRemoteTypeFieldInfo = (~) ActionType+    type AttrBaseTypeConstraint ActionGotoRemoteTypeFieldInfo = (~) ActionGotoRemote+    type AttrGetType ActionGotoRemoteTypeFieldInfo = ActionType+    type AttrLabel ActionGotoRemoteTypeFieldInfo = "type"+    attrGet _ = actionGotoRemoteReadType+    attrSet _ = actionGotoRemoteWriteType+    attrConstruct = undefined+    attrClear _ = undefined++actionGotoRemoteType :: AttrLabelProxy "type"+actionGotoRemoteType = AttrLabelProxy+++actionGotoRemoteReadTitle :: MonadIO m => ActionGotoRemote -> m (Maybe T.Text)+actionGotoRemoteReadTitle s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 8) :: IO CString-    val' <- cstringToText val-    return val'+    result <- convertIfNonNull val $ \val' -> do+        val'' <- cstringToText val'+        return val''+    return result -actionGotoRemoteReadFileName :: ActionGotoRemote -> IO T.Text-actionGotoRemoteReadFileName s = withManagedPtr s $ \ptr -> do+actionGotoRemoteWriteTitle :: MonadIO m => ActionGotoRemote -> CString -> m ()+actionGotoRemoteWriteTitle s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 8) (val :: CString)++actionGotoRemoteClearTitle :: MonadIO m => ActionGotoRemote -> m ()+actionGotoRemoteClearTitle s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 8) (nullPtr :: CString)++data ActionGotoRemoteTitleFieldInfo+instance AttrInfo ActionGotoRemoteTitleFieldInfo where+    type AttrAllowedOps ActionGotoRemoteTitleFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint ActionGotoRemoteTitleFieldInfo = (~) CString+    type AttrBaseTypeConstraint ActionGotoRemoteTitleFieldInfo = (~) ActionGotoRemote+    type AttrGetType ActionGotoRemoteTitleFieldInfo = Maybe T.Text+    type AttrLabel ActionGotoRemoteTitleFieldInfo = "title"+    attrGet _ = actionGotoRemoteReadTitle+    attrSet _ = actionGotoRemoteWriteTitle+    attrConstruct = undefined+    attrClear _ = actionGotoRemoteClearTitle++actionGotoRemoteTitle :: AttrLabelProxy "title"+actionGotoRemoteTitle = AttrLabelProxy+++actionGotoRemoteReadFileName :: MonadIO m => ActionGotoRemote -> m (Maybe T.Text)+actionGotoRemoteReadFileName s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 16) :: IO CString-    val' <- cstringToText val-    return val'+    result <- convertIfNonNull val $ \val' -> do+        val'' <- cstringToText val'+        return val''+    return result -actionGotoRemoteReadDest :: ActionGotoRemote -> IO Dest-actionGotoRemoteReadDest s = withManagedPtr s $ \ptr -> do+actionGotoRemoteWriteFileName :: MonadIO m => ActionGotoRemote -> CString -> m ()+actionGotoRemoteWriteFileName s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 16) (val :: CString)++actionGotoRemoteClearFileName :: MonadIO m => ActionGotoRemote -> m ()+actionGotoRemoteClearFileName s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 16) (nullPtr :: CString)++data ActionGotoRemoteFileNameFieldInfo+instance AttrInfo ActionGotoRemoteFileNameFieldInfo where+    type AttrAllowedOps ActionGotoRemoteFileNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint ActionGotoRemoteFileNameFieldInfo = (~) CString+    type AttrBaseTypeConstraint ActionGotoRemoteFileNameFieldInfo = (~) ActionGotoRemote+    type AttrGetType ActionGotoRemoteFileNameFieldInfo = Maybe T.Text+    type AttrLabel ActionGotoRemoteFileNameFieldInfo = "file_name"+    attrGet _ = actionGotoRemoteReadFileName+    attrSet _ = actionGotoRemoteWriteFileName+    attrConstruct = undefined+    attrClear _ = actionGotoRemoteClearFileName++actionGotoRemoteFileName :: AttrLabelProxy "fileName"+actionGotoRemoteFileName = AttrLabelProxy+++actionGotoRemoteReadDest :: MonadIO m => ActionGotoRemote -> m (Maybe Dest)+actionGotoRemoteReadDest s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 24) :: IO (Ptr Dest)-    val' <- (newBoxed Dest) val-    return val'+    result <- convertIfNonNull val $ \val' -> do+        val'' <- (newBoxed Dest) val'+        return val''+    return result++actionGotoRemoteWriteDest :: MonadIO m => ActionGotoRemote -> Ptr Dest -> m ()+actionGotoRemoteWriteDest s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 24) (val :: Ptr Dest)++actionGotoRemoteClearDest :: MonadIO m => ActionGotoRemote -> m ()+actionGotoRemoteClearDest s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 24) (nullPtr :: Ptr Dest)++data ActionGotoRemoteDestFieldInfo+instance AttrInfo ActionGotoRemoteDestFieldInfo where+    type AttrAllowedOps ActionGotoRemoteDestFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint ActionGotoRemoteDestFieldInfo = (~) (Ptr Dest)+    type AttrBaseTypeConstraint ActionGotoRemoteDestFieldInfo = (~) ActionGotoRemote+    type AttrGetType ActionGotoRemoteDestFieldInfo = Maybe Dest+    type AttrLabel ActionGotoRemoteDestFieldInfo = "dest"+    attrGet _ = actionGotoRemoteReadDest+    attrSet _ = actionGotoRemoteWriteDest+    attrConstruct = undefined+    attrClear _ = actionGotoRemoteClearDest++actionGotoRemoteDest :: AttrLabelProxy "dest"+actionGotoRemoteDest = AttrLabelProxy++++type instance AttributeList ActionGotoRemote = ActionGotoRemoteAttributeList+type ActionGotoRemoteAttributeList = ('[ '("type", ActionGotoRemoteTypeFieldInfo), '("title", ActionGotoRemoteTitleFieldInfo), '("fileName", ActionGotoRemoteFileNameFieldInfo), '("dest", ActionGotoRemoteDestFieldInfo)] :: [(Symbol, *)])  type family ResolveActionGotoRemoteMethod (t :: Symbol) (o :: *) :: * where     ResolveActionGotoRemoteMethod l o = MethodResolutionFailed l o

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

@@ -17,24 +17,32 @@   -- * Properties -- ** Script+    actionJavascriptClearScript             ,     actionJavascriptReadScript              ,+    actionJavascriptScript                  ,+    actionJavascriptWriteScript             ,   -- ** Title+    actionJavascriptClearTitle              ,     actionJavascriptReadTitle               ,+    actionJavascriptTitle                   ,+    actionJavascriptWriteTitle              ,   -- ** Type     actionJavascriptReadType                ,+    actionJavascriptType                    ,+    actionJavascriptWriteType               ,         ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -47,26 +55,110 @@ newZeroActionJavascript :: MonadIO m => m ActionJavascript newZeroActionJavascript = liftIO $ callocBytes 24 >>= wrapPtr ActionJavascript +instance tag ~ 'AttrSet => Constructible ActionJavascript tag where+    new _ attrs = do+        o <- newZeroActionJavascript+        GI.Attributes.set o attrs+        return o++ noActionJavascript :: Maybe ActionJavascript noActionJavascript = Nothing -actionJavascriptReadType :: ActionJavascript -> IO ActionType-actionJavascriptReadType s = withManagedPtr s $ \ptr -> do+actionJavascriptReadType :: MonadIO m => ActionJavascript -> m ActionType+actionJavascriptReadType s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 0) :: IO CUInt     let val' = (toEnum . fromIntegral) val     return val' -actionJavascriptReadTitle :: ActionJavascript -> IO T.Text-actionJavascriptReadTitle s = withManagedPtr s $ \ptr -> do+actionJavascriptWriteType :: MonadIO m => ActionJavascript -> ActionType -> m ()+actionJavascriptWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do+    let val' = (fromIntegral . fromEnum) val+    poke (ptr `plusPtr` 0) (val' :: CUInt)++data ActionJavascriptTypeFieldInfo+instance AttrInfo ActionJavascriptTypeFieldInfo where+    type AttrAllowedOps ActionJavascriptTypeFieldInfo = '[ 'AttrSet, 'AttrGet]+    type AttrSetTypeConstraint ActionJavascriptTypeFieldInfo = (~) ActionType+    type AttrBaseTypeConstraint ActionJavascriptTypeFieldInfo = (~) ActionJavascript+    type AttrGetType ActionJavascriptTypeFieldInfo = ActionType+    type AttrLabel ActionJavascriptTypeFieldInfo = "type"+    attrGet _ = actionJavascriptReadType+    attrSet _ = actionJavascriptWriteType+    attrConstruct = undefined+    attrClear _ = undefined++actionJavascriptType :: AttrLabelProxy "type"+actionJavascriptType = AttrLabelProxy+++actionJavascriptReadTitle :: MonadIO m => ActionJavascript -> m (Maybe T.Text)+actionJavascriptReadTitle s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 8) :: IO CString-    val' <- cstringToText val-    return val'+    result <- convertIfNonNull val $ \val' -> do+        val'' <- cstringToText val'+        return val''+    return result -actionJavascriptReadScript :: ActionJavascript -> IO T.Text-actionJavascriptReadScript s = withManagedPtr s $ \ptr -> do+actionJavascriptWriteTitle :: MonadIO m => ActionJavascript -> CString -> m ()+actionJavascriptWriteTitle s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 8) (val :: CString)++actionJavascriptClearTitle :: MonadIO m => ActionJavascript -> m ()+actionJavascriptClearTitle s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 8) (nullPtr :: CString)++data ActionJavascriptTitleFieldInfo+instance AttrInfo ActionJavascriptTitleFieldInfo where+    type AttrAllowedOps ActionJavascriptTitleFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint ActionJavascriptTitleFieldInfo = (~) CString+    type AttrBaseTypeConstraint ActionJavascriptTitleFieldInfo = (~) ActionJavascript+    type AttrGetType ActionJavascriptTitleFieldInfo = Maybe T.Text+    type AttrLabel ActionJavascriptTitleFieldInfo = "title"+    attrGet _ = actionJavascriptReadTitle+    attrSet _ = actionJavascriptWriteTitle+    attrConstruct = undefined+    attrClear _ = actionJavascriptClearTitle++actionJavascriptTitle :: AttrLabelProxy "title"+actionJavascriptTitle = AttrLabelProxy+++actionJavascriptReadScript :: MonadIO m => ActionJavascript -> m (Maybe T.Text)+actionJavascriptReadScript s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 16) :: IO CString-    val' <- cstringToText val-    return val'+    result <- convertIfNonNull val $ \val' -> do+        val'' <- cstringToText val'+        return val''+    return result++actionJavascriptWriteScript :: MonadIO m => ActionJavascript -> CString -> m ()+actionJavascriptWriteScript s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 16) (val :: CString)++actionJavascriptClearScript :: MonadIO m => ActionJavascript -> m ()+actionJavascriptClearScript s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 16) (nullPtr :: CString)++data ActionJavascriptScriptFieldInfo+instance AttrInfo ActionJavascriptScriptFieldInfo where+    type AttrAllowedOps ActionJavascriptScriptFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint ActionJavascriptScriptFieldInfo = (~) CString+    type AttrBaseTypeConstraint ActionJavascriptScriptFieldInfo = (~) ActionJavascript+    type AttrGetType ActionJavascriptScriptFieldInfo = Maybe T.Text+    type AttrLabel ActionJavascriptScriptFieldInfo = "script"+    attrGet _ = actionJavascriptReadScript+    attrSet _ = actionJavascriptWriteScript+    attrConstruct = undefined+    attrClear _ = actionJavascriptClearScript++actionJavascriptScript :: AttrLabelProxy "script"+actionJavascriptScript = AttrLabelProxy++++type instance AttributeList ActionJavascript = ActionJavascriptAttributeList+type ActionJavascriptAttributeList = ('[ '("type", ActionJavascriptTypeFieldInfo), '("title", ActionJavascriptTitleFieldInfo), '("script", ActionJavascriptScriptFieldInfo)] :: [(Symbol, *)])  type family ResolveActionJavascriptMethod (t :: Symbol) (o :: *) :: * where     ResolveActionJavascriptMethod l o = MethodResolutionFailed l o

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

@@ -17,28 +17,39 @@   -- * Properties -- ** FileName+    actionLaunchClearFileName               ,+    actionLaunchFileName                    ,     actionLaunchReadFileName                ,+    actionLaunchWriteFileName               ,   -- ** Params+    actionLaunchClearParams                 ,+    actionLaunchParams                      ,     actionLaunchReadParams                  ,+    actionLaunchWriteParams                 ,   -- ** Title+    actionLaunchClearTitle                  ,     actionLaunchReadTitle                   ,+    actionLaunchTitle                       ,+    actionLaunchWriteTitle                  ,   -- ** Type     actionLaunchReadType                    ,+    actionLaunchType                        ,+    actionLaunchWriteType                   ,         ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -51,32 +62,142 @@ newZeroActionLaunch :: MonadIO m => m ActionLaunch newZeroActionLaunch = liftIO $ callocBytes 32 >>= wrapPtr ActionLaunch +instance tag ~ 'AttrSet => Constructible ActionLaunch tag where+    new _ attrs = do+        o <- newZeroActionLaunch+        GI.Attributes.set o attrs+        return o++ noActionLaunch :: Maybe ActionLaunch noActionLaunch = Nothing -actionLaunchReadType :: ActionLaunch -> IO ActionType-actionLaunchReadType s = withManagedPtr s $ \ptr -> do+actionLaunchReadType :: MonadIO m => ActionLaunch -> m ActionType+actionLaunchReadType s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 0) :: IO CUInt     let val' = (toEnum . fromIntegral) val     return val' -actionLaunchReadTitle :: ActionLaunch -> IO T.Text-actionLaunchReadTitle s = withManagedPtr s $ \ptr -> do+actionLaunchWriteType :: MonadIO m => ActionLaunch -> ActionType -> m ()+actionLaunchWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do+    let val' = (fromIntegral . fromEnum) val+    poke (ptr `plusPtr` 0) (val' :: CUInt)++data ActionLaunchTypeFieldInfo+instance AttrInfo ActionLaunchTypeFieldInfo where+    type AttrAllowedOps ActionLaunchTypeFieldInfo = '[ 'AttrSet, 'AttrGet]+    type AttrSetTypeConstraint ActionLaunchTypeFieldInfo = (~) ActionType+    type AttrBaseTypeConstraint ActionLaunchTypeFieldInfo = (~) ActionLaunch+    type AttrGetType ActionLaunchTypeFieldInfo = ActionType+    type AttrLabel ActionLaunchTypeFieldInfo = "type"+    attrGet _ = actionLaunchReadType+    attrSet _ = actionLaunchWriteType+    attrConstruct = undefined+    attrClear _ = undefined++actionLaunchType :: AttrLabelProxy "type"+actionLaunchType = AttrLabelProxy+++actionLaunchReadTitle :: MonadIO m => ActionLaunch -> m (Maybe T.Text)+actionLaunchReadTitle s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 8) :: IO CString-    val' <- cstringToText val-    return val'+    result <- convertIfNonNull val $ \val' -> do+        val'' <- cstringToText val'+        return val''+    return result -actionLaunchReadFileName :: ActionLaunch -> IO T.Text-actionLaunchReadFileName s = withManagedPtr s $ \ptr -> do+actionLaunchWriteTitle :: MonadIO m => ActionLaunch -> CString -> m ()+actionLaunchWriteTitle s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 8) (val :: CString)++actionLaunchClearTitle :: MonadIO m => ActionLaunch -> m ()+actionLaunchClearTitle s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 8) (nullPtr :: CString)++data ActionLaunchTitleFieldInfo+instance AttrInfo ActionLaunchTitleFieldInfo where+    type AttrAllowedOps ActionLaunchTitleFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint ActionLaunchTitleFieldInfo = (~) CString+    type AttrBaseTypeConstraint ActionLaunchTitleFieldInfo = (~) ActionLaunch+    type AttrGetType ActionLaunchTitleFieldInfo = Maybe T.Text+    type AttrLabel ActionLaunchTitleFieldInfo = "title"+    attrGet _ = actionLaunchReadTitle+    attrSet _ = actionLaunchWriteTitle+    attrConstruct = undefined+    attrClear _ = actionLaunchClearTitle++actionLaunchTitle :: AttrLabelProxy "title"+actionLaunchTitle = AttrLabelProxy+++actionLaunchReadFileName :: MonadIO m => ActionLaunch -> m (Maybe T.Text)+actionLaunchReadFileName s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 16) :: IO CString-    val' <- cstringToText val-    return val'+    result <- convertIfNonNull val $ \val' -> do+        val'' <- cstringToText val'+        return val''+    return result -actionLaunchReadParams :: ActionLaunch -> IO T.Text-actionLaunchReadParams s = withManagedPtr s $ \ptr -> do+actionLaunchWriteFileName :: MonadIO m => ActionLaunch -> CString -> m ()+actionLaunchWriteFileName s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 16) (val :: CString)++actionLaunchClearFileName :: MonadIO m => ActionLaunch -> m ()+actionLaunchClearFileName s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 16) (nullPtr :: CString)++data ActionLaunchFileNameFieldInfo+instance AttrInfo ActionLaunchFileNameFieldInfo where+    type AttrAllowedOps ActionLaunchFileNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint ActionLaunchFileNameFieldInfo = (~) CString+    type AttrBaseTypeConstraint ActionLaunchFileNameFieldInfo = (~) ActionLaunch+    type AttrGetType ActionLaunchFileNameFieldInfo = Maybe T.Text+    type AttrLabel ActionLaunchFileNameFieldInfo = "file_name"+    attrGet _ = actionLaunchReadFileName+    attrSet _ = actionLaunchWriteFileName+    attrConstruct = undefined+    attrClear _ = actionLaunchClearFileName++actionLaunchFileName :: AttrLabelProxy "fileName"+actionLaunchFileName = AttrLabelProxy+++actionLaunchReadParams :: MonadIO m => ActionLaunch -> m (Maybe T.Text)+actionLaunchReadParams s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 24) :: IO CString-    val' <- cstringToText val-    return val'+    result <- convertIfNonNull val $ \val' -> do+        val'' <- cstringToText val'+        return val''+    return result++actionLaunchWriteParams :: MonadIO m => ActionLaunch -> CString -> m ()+actionLaunchWriteParams s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 24) (val :: CString)++actionLaunchClearParams :: MonadIO m => ActionLaunch -> m ()+actionLaunchClearParams s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 24) (nullPtr :: CString)++data ActionLaunchParamsFieldInfo+instance AttrInfo ActionLaunchParamsFieldInfo where+    type AttrAllowedOps ActionLaunchParamsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint ActionLaunchParamsFieldInfo = (~) CString+    type AttrBaseTypeConstraint ActionLaunchParamsFieldInfo = (~) ActionLaunch+    type AttrGetType ActionLaunchParamsFieldInfo = Maybe T.Text+    type AttrLabel ActionLaunchParamsFieldInfo = "params"+    attrGet _ = actionLaunchReadParams+    attrSet _ = actionLaunchWriteParams+    attrConstruct = undefined+    attrClear _ = actionLaunchClearParams++actionLaunchParams :: AttrLabelProxy "params"+actionLaunchParams = AttrLabelProxy++++type instance AttributeList ActionLaunch = ActionLaunchAttributeList+type ActionLaunchAttributeList = ('[ '("type", ActionLaunchTypeFieldInfo), '("title", ActionLaunchTitleFieldInfo), '("fileName", ActionLaunchFileNameFieldInfo), '("params", ActionLaunchParamsFieldInfo)] :: [(Symbol, *)])  type family ResolveActionLaunchMethod (t :: Symbol) (o :: *) :: * where     ResolveActionLaunchMethod l o = MethodResolutionFailed l o

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

@@ -19,20 +19,25 @@   -- * Properties -- ** Action+    actionLayerAction                       ,     actionLayerReadAction                   ,+    actionLayerWriteAction                  ,   -- ** Layers+    actionLayerClearLayers                  ,+    actionLayerLayers                       ,     actionLayerReadLayers                   ,+    actionLayerWriteLayers                  ,         ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -45,20 +50,76 @@ newZeroActionLayer :: MonadIO m => m ActionLayer newZeroActionLayer = liftIO $ callocBytes 16 >>= wrapPtr ActionLayer +instance tag ~ 'AttrSet => Constructible ActionLayer tag where+    new _ attrs = do+        o <- newZeroActionLayer+        GI.Attributes.set o attrs+        return o++ noActionLayer :: Maybe ActionLayer noActionLayer = Nothing -actionLayerReadAction :: ActionLayer -> IO ActionLayerAction-actionLayerReadAction s = withManagedPtr s $ \ptr -> do+actionLayerReadAction :: MonadIO m => ActionLayer -> m ActionLayerAction+actionLayerReadAction s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 0) :: IO CUInt     let val' = (toEnum . fromIntegral) val     return val' -actionLayerReadLayers :: ActionLayer -> IO ([Ptr ()])-actionLayerReadLayers s = withManagedPtr s $ \ptr -> do+actionLayerWriteAction :: MonadIO m => ActionLayer -> ActionLayerAction -> m ()+actionLayerWriteAction s val = liftIO $ withManagedPtr s $ \ptr -> do+    let val' = (fromIntegral . fromEnum) val+    poke (ptr `plusPtr` 0) (val' :: CUInt)++data ActionLayerActionFieldInfo+instance AttrInfo ActionLayerActionFieldInfo where+    type AttrAllowedOps ActionLayerActionFieldInfo = '[ 'AttrSet, 'AttrGet]+    type AttrSetTypeConstraint ActionLayerActionFieldInfo = (~) ActionLayerAction+    type AttrBaseTypeConstraint ActionLayerActionFieldInfo = (~) ActionLayer+    type AttrGetType ActionLayerActionFieldInfo = ActionLayerAction+    type AttrLabel ActionLayerActionFieldInfo = "action"+    attrGet _ = actionLayerReadAction+    attrSet _ = actionLayerWriteAction+    attrConstruct = undefined+    attrClear _ = undefined++actionLayerAction :: AttrLabelProxy "action"+actionLayerAction = AttrLabelProxy+++actionLayerReadLayers :: MonadIO m => ActionLayer -> m ([Ptr ()])+actionLayerReadLayers s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 8) :: IO (Ptr (GList (Ptr ())))     val' <- unpackGList val     return val'++actionLayerWriteLayers :: MonadIO m => ActionLayer -> Ptr (GList (Ptr ())) -> m ()+actionLayerWriteLayers s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 8) (val :: Ptr (GList (Ptr ())))++actionLayerClearLayers :: MonadIO m => ActionLayer -> m ()+actionLayerClearLayers s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 8) (nullPtr :: Ptr (GList (Ptr ())))++data ActionLayerLayersFieldInfo+instance AttrInfo ActionLayerLayersFieldInfo where+    type AttrAllowedOps ActionLayerLayersFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint ActionLayerLayersFieldInfo = (~) (Ptr (GList (Ptr ())))+    type AttrBaseTypeConstraint ActionLayerLayersFieldInfo = (~) ActionLayer+    type AttrGetType ActionLayerLayersFieldInfo = [Ptr ()]+    type AttrLabel ActionLayerLayersFieldInfo = "layers"+    attrGet _ = actionLayerReadLayers+    attrSet _ = actionLayerWriteLayers+    attrConstruct = undefined+    attrClear _ = actionLayerClearLayers++actionLayerLayers :: AttrLabelProxy "layers"+actionLayerLayers = AttrLabelProxy++++type instance AttributeList ActionLayer = ActionLayerAttributeList+type ActionLayerAttributeList = ('[ '("action", ActionLayerActionFieldInfo), '("layers", ActionLayerLayersFieldInfo)] :: [(Symbol, *)])  type family ResolveActionLayerMethod (t :: Symbol) (o :: *) :: * where     ResolveActionLayerMethod l o = MethodResolutionFailed l o

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

@@ -17,28 +17,38 @@   -- * Properties -- ** Movie+    actionMovieClearMovie                   ,+    actionMovieMovie                        ,     actionMovieReadMovie                    ,+    actionMovieWriteMovie                   ,   -- ** Operation+    actionMovieOperation                    ,     actionMovieReadOperation                ,+    actionMovieWriteOperation               ,   -- ** Title+    actionMovieClearTitle                   ,     actionMovieReadTitle                    ,+    actionMovieTitle                        ,+    actionMovieWriteTitle                   ,   -- ** Type     actionMovieReadType                     ,+    actionMovieType                         ,+    actionMovieWriteType                    ,         ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -51,32 +61,137 @@ newZeroActionMovie :: MonadIO m => m ActionMovie newZeroActionMovie = liftIO $ callocBytes 32 >>= wrapPtr ActionMovie +instance tag ~ 'AttrSet => Constructible ActionMovie tag where+    new _ attrs = do+        o <- newZeroActionMovie+        GI.Attributes.set o attrs+        return o++ noActionMovie :: Maybe ActionMovie noActionMovie = Nothing -actionMovieReadType :: ActionMovie -> IO ActionType-actionMovieReadType s = withManagedPtr s $ \ptr -> do+actionMovieReadType :: MonadIO m => ActionMovie -> m ActionType+actionMovieReadType s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 0) :: IO CUInt     let val' = (toEnum . fromIntegral) val     return val' -actionMovieReadTitle :: ActionMovie -> IO T.Text-actionMovieReadTitle s = withManagedPtr s $ \ptr -> do+actionMovieWriteType :: MonadIO m => ActionMovie -> ActionType -> m ()+actionMovieWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do+    let val' = (fromIntegral . fromEnum) val+    poke (ptr `plusPtr` 0) (val' :: CUInt)++data ActionMovieTypeFieldInfo+instance AttrInfo ActionMovieTypeFieldInfo where+    type AttrAllowedOps ActionMovieTypeFieldInfo = '[ 'AttrSet, 'AttrGet]+    type AttrSetTypeConstraint ActionMovieTypeFieldInfo = (~) ActionType+    type AttrBaseTypeConstraint ActionMovieTypeFieldInfo = (~) ActionMovie+    type AttrGetType ActionMovieTypeFieldInfo = ActionType+    type AttrLabel ActionMovieTypeFieldInfo = "type"+    attrGet _ = actionMovieReadType+    attrSet _ = actionMovieWriteType+    attrConstruct = undefined+    attrClear _ = undefined++actionMovieType :: AttrLabelProxy "type"+actionMovieType = AttrLabelProxy+++actionMovieReadTitle :: MonadIO m => ActionMovie -> m (Maybe T.Text)+actionMovieReadTitle s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 8) :: IO CString-    val' <- cstringToText val-    return val'+    result <- convertIfNonNull val $ \val' -> do+        val'' <- cstringToText val'+        return val''+    return result -actionMovieReadOperation :: ActionMovie -> IO ActionMovieOperation-actionMovieReadOperation s = withManagedPtr s $ \ptr -> do+actionMovieWriteTitle :: MonadIO m => ActionMovie -> CString -> m ()+actionMovieWriteTitle s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 8) (val :: CString)++actionMovieClearTitle :: MonadIO m => ActionMovie -> m ()+actionMovieClearTitle s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 8) (nullPtr :: CString)++data ActionMovieTitleFieldInfo+instance AttrInfo ActionMovieTitleFieldInfo where+    type AttrAllowedOps ActionMovieTitleFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint ActionMovieTitleFieldInfo = (~) CString+    type AttrBaseTypeConstraint ActionMovieTitleFieldInfo = (~) ActionMovie+    type AttrGetType ActionMovieTitleFieldInfo = Maybe T.Text+    type AttrLabel ActionMovieTitleFieldInfo = "title"+    attrGet _ = actionMovieReadTitle+    attrSet _ = actionMovieWriteTitle+    attrConstruct = undefined+    attrClear _ = actionMovieClearTitle++actionMovieTitle :: AttrLabelProxy "title"+actionMovieTitle = AttrLabelProxy+++actionMovieReadOperation :: MonadIO m => ActionMovie -> m ActionMovieOperation+actionMovieReadOperation s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 16) :: IO CUInt     let val' = (toEnum . fromIntegral) val     return val' -actionMovieReadMovie :: ActionMovie -> IO Movie-actionMovieReadMovie s = withManagedPtr s $ \ptr -> do+actionMovieWriteOperation :: MonadIO m => ActionMovie -> ActionMovieOperation -> m ()+actionMovieWriteOperation s val = liftIO $ withManagedPtr s $ \ptr -> do+    let val' = (fromIntegral . fromEnum) val+    poke (ptr `plusPtr` 16) (val' :: CUInt)++data ActionMovieOperationFieldInfo+instance AttrInfo ActionMovieOperationFieldInfo where+    type AttrAllowedOps ActionMovieOperationFieldInfo = '[ 'AttrSet, 'AttrGet]+    type AttrSetTypeConstraint ActionMovieOperationFieldInfo = (~) ActionMovieOperation+    type AttrBaseTypeConstraint ActionMovieOperationFieldInfo = (~) ActionMovie+    type AttrGetType ActionMovieOperationFieldInfo = ActionMovieOperation+    type AttrLabel ActionMovieOperationFieldInfo = "operation"+    attrGet _ = actionMovieReadOperation+    attrSet _ = actionMovieWriteOperation+    attrConstruct = undefined+    attrClear _ = undefined++actionMovieOperation :: AttrLabelProxy "operation"+actionMovieOperation = AttrLabelProxy+++actionMovieReadMovie :: MonadIO m => ActionMovie -> m (Maybe Movie)+actionMovieReadMovie s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 24) :: IO (Ptr Movie)-    val' <- (newObject Movie) val-    return val'+    result <- convertIfNonNull val $ \val' -> do+        val'' <- (newObject Movie) val'+        return val''+    return result++actionMovieWriteMovie :: MonadIO m => ActionMovie -> Ptr Movie -> m ()+actionMovieWriteMovie s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 24) (val :: Ptr Movie)++actionMovieClearMovie :: MonadIO m => ActionMovie -> m ()+actionMovieClearMovie s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 24) (nullPtr :: Ptr Movie)++data ActionMovieMovieFieldInfo+instance AttrInfo ActionMovieMovieFieldInfo where+    type AttrAllowedOps ActionMovieMovieFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint ActionMovieMovieFieldInfo = (~) (Ptr Movie)+    type AttrBaseTypeConstraint ActionMovieMovieFieldInfo = (~) ActionMovie+    type AttrGetType ActionMovieMovieFieldInfo = Maybe Movie+    type AttrLabel ActionMovieMovieFieldInfo = "movie"+    attrGet _ = actionMovieReadMovie+    attrSet _ = actionMovieWriteMovie+    attrConstruct = undefined+    attrClear _ = actionMovieClearMovie++actionMovieMovie :: AttrLabelProxy "movie"+actionMovieMovie = AttrLabelProxy++++type instance AttributeList ActionMovie = ActionMovieAttributeList+type ActionMovieAttributeList = ('[ '("type", ActionMovieTypeFieldInfo), '("title", ActionMovieTitleFieldInfo), '("operation", ActionMovieOperationFieldInfo), '("movie", ActionMovieMovieFieldInfo)] :: [(Symbol, *)])  type family ResolveActionMovieMethod (t :: Symbol) (o :: *) :: * where     ResolveActionMovieMethod l o = MethodResolutionFailed l o

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

@@ -17,24 +17,32 @@   -- * Properties -- ** NamedDest+    actionNamedClearNamedDest               ,+    actionNamedNamedDest                    ,     actionNamedReadNamedDest                ,+    actionNamedWriteNamedDest               ,   -- ** Title+    actionNamedClearTitle                   ,     actionNamedReadTitle                    ,+    actionNamedTitle                        ,+    actionNamedWriteTitle                   ,   -- ** Type     actionNamedReadType                     ,+    actionNamedType                         ,+    actionNamedWriteType                    ,         ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -47,26 +55,110 @@ newZeroActionNamed :: MonadIO m => m ActionNamed newZeroActionNamed = liftIO $ callocBytes 24 >>= wrapPtr ActionNamed +instance tag ~ 'AttrSet => Constructible ActionNamed tag where+    new _ attrs = do+        o <- newZeroActionNamed+        GI.Attributes.set o attrs+        return o++ noActionNamed :: Maybe ActionNamed noActionNamed = Nothing -actionNamedReadType :: ActionNamed -> IO ActionType-actionNamedReadType s = withManagedPtr s $ \ptr -> do+actionNamedReadType :: MonadIO m => ActionNamed -> m ActionType+actionNamedReadType s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 0) :: IO CUInt     let val' = (toEnum . fromIntegral) val     return val' -actionNamedReadTitle :: ActionNamed -> IO T.Text-actionNamedReadTitle s = withManagedPtr s $ \ptr -> do+actionNamedWriteType :: MonadIO m => ActionNamed -> ActionType -> m ()+actionNamedWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do+    let val' = (fromIntegral . fromEnum) val+    poke (ptr `plusPtr` 0) (val' :: CUInt)++data ActionNamedTypeFieldInfo+instance AttrInfo ActionNamedTypeFieldInfo where+    type AttrAllowedOps ActionNamedTypeFieldInfo = '[ 'AttrSet, 'AttrGet]+    type AttrSetTypeConstraint ActionNamedTypeFieldInfo = (~) ActionType+    type AttrBaseTypeConstraint ActionNamedTypeFieldInfo = (~) ActionNamed+    type AttrGetType ActionNamedTypeFieldInfo = ActionType+    type AttrLabel ActionNamedTypeFieldInfo = "type"+    attrGet _ = actionNamedReadType+    attrSet _ = actionNamedWriteType+    attrConstruct = undefined+    attrClear _ = undefined++actionNamedType :: AttrLabelProxy "type"+actionNamedType = AttrLabelProxy+++actionNamedReadTitle :: MonadIO m => ActionNamed -> m (Maybe T.Text)+actionNamedReadTitle s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 8) :: IO CString-    val' <- cstringToText val-    return val'+    result <- convertIfNonNull val $ \val' -> do+        val'' <- cstringToText val'+        return val''+    return result -actionNamedReadNamedDest :: ActionNamed -> IO T.Text-actionNamedReadNamedDest s = withManagedPtr s $ \ptr -> do+actionNamedWriteTitle :: MonadIO m => ActionNamed -> CString -> m ()+actionNamedWriteTitle s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 8) (val :: CString)++actionNamedClearTitle :: MonadIO m => ActionNamed -> m ()+actionNamedClearTitle s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 8) (nullPtr :: CString)++data ActionNamedTitleFieldInfo+instance AttrInfo ActionNamedTitleFieldInfo where+    type AttrAllowedOps ActionNamedTitleFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint ActionNamedTitleFieldInfo = (~) CString+    type AttrBaseTypeConstraint ActionNamedTitleFieldInfo = (~) ActionNamed+    type AttrGetType ActionNamedTitleFieldInfo = Maybe T.Text+    type AttrLabel ActionNamedTitleFieldInfo = "title"+    attrGet _ = actionNamedReadTitle+    attrSet _ = actionNamedWriteTitle+    attrConstruct = undefined+    attrClear _ = actionNamedClearTitle++actionNamedTitle :: AttrLabelProxy "title"+actionNamedTitle = AttrLabelProxy+++actionNamedReadNamedDest :: MonadIO m => ActionNamed -> m (Maybe T.Text)+actionNamedReadNamedDest s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 16) :: IO CString-    val' <- cstringToText val-    return val'+    result <- convertIfNonNull val $ \val' -> do+        val'' <- cstringToText val'+        return val''+    return result++actionNamedWriteNamedDest :: MonadIO m => ActionNamed -> CString -> m ()+actionNamedWriteNamedDest s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 16) (val :: CString)++actionNamedClearNamedDest :: MonadIO m => ActionNamed -> m ()+actionNamedClearNamedDest s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 16) (nullPtr :: CString)++data ActionNamedNamedDestFieldInfo+instance AttrInfo ActionNamedNamedDestFieldInfo where+    type AttrAllowedOps ActionNamedNamedDestFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint ActionNamedNamedDestFieldInfo = (~) CString+    type AttrBaseTypeConstraint ActionNamedNamedDestFieldInfo = (~) ActionNamed+    type AttrGetType ActionNamedNamedDestFieldInfo = Maybe T.Text+    type AttrLabel ActionNamedNamedDestFieldInfo = "named_dest"+    attrGet _ = actionNamedReadNamedDest+    attrSet _ = actionNamedWriteNamedDest+    attrConstruct = undefined+    attrClear _ = actionNamedClearNamedDest++actionNamedNamedDest :: AttrLabelProxy "namedDest"+actionNamedNamedDest = AttrLabelProxy++++type instance AttributeList ActionNamed = ActionNamedAttributeList+type ActionNamedAttributeList = ('[ '("type", ActionNamedTypeFieldInfo), '("title", ActionNamedTitleFieldInfo), '("namedDest", ActionNamedNamedDestFieldInfo)] :: [(Symbol, *)])  type family ResolveActionNamedMethod (t :: Symbol) (o :: *) :: * where     ResolveActionNamedMethod l o = MethodResolutionFailed l o

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

@@ -17,24 +17,32 @@   -- * Properties -- ** StateList+    actionOCGStateClearStateList            ,     actionOCGStateReadStateList             ,+    actionOCGStateStateList                 ,+    actionOCGStateWriteStateList            ,   -- ** Title+    actionOCGStateClearTitle                ,     actionOCGStateReadTitle                 ,+    actionOCGStateTitle                     ,+    actionOCGStateWriteTitle                ,   -- ** Type     actionOCGStateReadType                  ,+    actionOCGStateType                      ,+    actionOCGStateWriteType                 ,         ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -47,26 +55,108 @@ newZeroActionOCGState :: MonadIO m => m ActionOCGState newZeroActionOCGState = liftIO $ callocBytes 24 >>= wrapPtr ActionOCGState +instance tag ~ 'AttrSet => Constructible ActionOCGState tag where+    new _ attrs = do+        o <- newZeroActionOCGState+        GI.Attributes.set o attrs+        return o++ noActionOCGState :: Maybe ActionOCGState noActionOCGState = Nothing -actionOCGStateReadType :: ActionOCGState -> IO ActionType-actionOCGStateReadType s = withManagedPtr s $ \ptr -> do+actionOCGStateReadType :: MonadIO m => ActionOCGState -> m ActionType+actionOCGStateReadType s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 0) :: IO CUInt     let val' = (toEnum . fromIntegral) val     return val' -actionOCGStateReadTitle :: ActionOCGState -> IO T.Text-actionOCGStateReadTitle s = withManagedPtr s $ \ptr -> do+actionOCGStateWriteType :: MonadIO m => ActionOCGState -> ActionType -> m ()+actionOCGStateWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do+    let val' = (fromIntegral . fromEnum) val+    poke (ptr `plusPtr` 0) (val' :: CUInt)++data ActionOCGStateTypeFieldInfo+instance AttrInfo ActionOCGStateTypeFieldInfo where+    type AttrAllowedOps ActionOCGStateTypeFieldInfo = '[ 'AttrSet, 'AttrGet]+    type AttrSetTypeConstraint ActionOCGStateTypeFieldInfo = (~) ActionType+    type AttrBaseTypeConstraint ActionOCGStateTypeFieldInfo = (~) ActionOCGState+    type AttrGetType ActionOCGStateTypeFieldInfo = ActionType+    type AttrLabel ActionOCGStateTypeFieldInfo = "type"+    attrGet _ = actionOCGStateReadType+    attrSet _ = actionOCGStateWriteType+    attrConstruct = undefined+    attrClear _ = undefined++actionOCGStateType :: AttrLabelProxy "type"+actionOCGStateType = AttrLabelProxy+++actionOCGStateReadTitle :: MonadIO m => ActionOCGState -> m (Maybe T.Text)+actionOCGStateReadTitle s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 8) :: IO CString-    val' <- cstringToText val-    return val'+    result <- convertIfNonNull val $ \val' -> do+        val'' <- cstringToText val'+        return val''+    return result -actionOCGStateReadStateList :: ActionOCGState -> IO ([Ptr ()])-actionOCGStateReadStateList s = withManagedPtr s $ \ptr -> do+actionOCGStateWriteTitle :: MonadIO m => ActionOCGState -> CString -> m ()+actionOCGStateWriteTitle s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 8) (val :: CString)++actionOCGStateClearTitle :: MonadIO m => ActionOCGState -> m ()+actionOCGStateClearTitle s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 8) (nullPtr :: CString)++data ActionOCGStateTitleFieldInfo+instance AttrInfo ActionOCGStateTitleFieldInfo where+    type AttrAllowedOps ActionOCGStateTitleFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint ActionOCGStateTitleFieldInfo = (~) CString+    type AttrBaseTypeConstraint ActionOCGStateTitleFieldInfo = (~) ActionOCGState+    type AttrGetType ActionOCGStateTitleFieldInfo = Maybe T.Text+    type AttrLabel ActionOCGStateTitleFieldInfo = "title"+    attrGet _ = actionOCGStateReadTitle+    attrSet _ = actionOCGStateWriteTitle+    attrConstruct = undefined+    attrClear _ = actionOCGStateClearTitle++actionOCGStateTitle :: AttrLabelProxy "title"+actionOCGStateTitle = AttrLabelProxy+++actionOCGStateReadStateList :: MonadIO m => ActionOCGState -> m ([Ptr ()])+actionOCGStateReadStateList s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 16) :: IO (Ptr (GList (Ptr ())))     val' <- unpackGList val     return val'++actionOCGStateWriteStateList :: MonadIO m => ActionOCGState -> Ptr (GList (Ptr ())) -> m ()+actionOCGStateWriteStateList s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 16) (val :: Ptr (GList (Ptr ())))++actionOCGStateClearStateList :: MonadIO m => ActionOCGState -> m ()+actionOCGStateClearStateList s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 16) (nullPtr :: Ptr (GList (Ptr ())))++data ActionOCGStateStateListFieldInfo+instance AttrInfo ActionOCGStateStateListFieldInfo where+    type AttrAllowedOps ActionOCGStateStateListFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint ActionOCGStateStateListFieldInfo = (~) (Ptr (GList (Ptr ())))+    type AttrBaseTypeConstraint ActionOCGStateStateListFieldInfo = (~) ActionOCGState+    type AttrGetType ActionOCGStateStateListFieldInfo = [Ptr ()]+    type AttrLabel ActionOCGStateStateListFieldInfo = "state_list"+    attrGet _ = actionOCGStateReadStateList+    attrSet _ = actionOCGStateWriteStateList+    attrConstruct = undefined+    attrClear _ = actionOCGStateClearStateList++actionOCGStateStateList :: AttrLabelProxy "stateList"+actionOCGStateStateList = AttrLabelProxy++++type instance AttributeList ActionOCGState = ActionOCGStateAttributeList+type ActionOCGStateAttributeList = ('[ '("type", ActionOCGStateTypeFieldInfo), '("title", ActionOCGStateTitleFieldInfo), '("stateList", ActionOCGStateStateListFieldInfo)] :: [(Symbol, *)])  type family ResolveActionOCGStateMethod (t :: Symbol) (o :: *) :: * where     ResolveActionOCGStateMethod l o = MethodResolutionFailed l o

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

@@ -17,28 +17,38 @@   -- * Properties -- ** Media+    actionRenditionClearMedia               ,+    actionRenditionMedia                    ,     actionRenditionReadMedia                ,+    actionRenditionWriteMedia               ,   -- ** Op+    actionRenditionOp                       ,     actionRenditionReadOp                   ,+    actionRenditionWriteOp                  ,   -- ** Title+    actionRenditionClearTitle               ,     actionRenditionReadTitle                ,+    actionRenditionTitle                    ,+    actionRenditionWriteTitle               ,   -- ** Type     actionRenditionReadType                 ,+    actionRenditionType                     ,+    actionRenditionWriteType                ,         ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -51,31 +61,135 @@ newZeroActionRendition :: MonadIO m => m ActionRendition newZeroActionRendition = liftIO $ callocBytes 32 >>= wrapPtr ActionRendition +instance tag ~ 'AttrSet => Constructible ActionRendition tag where+    new _ attrs = do+        o <- newZeroActionRendition+        GI.Attributes.set o attrs+        return o++ noActionRendition :: Maybe ActionRendition noActionRendition = Nothing -actionRenditionReadType :: ActionRendition -> IO ActionType-actionRenditionReadType s = withManagedPtr s $ \ptr -> do+actionRenditionReadType :: MonadIO m => ActionRendition -> m ActionType+actionRenditionReadType s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 0) :: IO CUInt     let val' = (toEnum . fromIntegral) val     return val' -actionRenditionReadTitle :: ActionRendition -> IO T.Text-actionRenditionReadTitle s = withManagedPtr s $ \ptr -> do+actionRenditionWriteType :: MonadIO m => ActionRendition -> ActionType -> m ()+actionRenditionWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do+    let val' = (fromIntegral . fromEnum) val+    poke (ptr `plusPtr` 0) (val' :: CUInt)++data ActionRenditionTypeFieldInfo+instance AttrInfo ActionRenditionTypeFieldInfo where+    type AttrAllowedOps ActionRenditionTypeFieldInfo = '[ 'AttrSet, 'AttrGet]+    type AttrSetTypeConstraint ActionRenditionTypeFieldInfo = (~) ActionType+    type AttrBaseTypeConstraint ActionRenditionTypeFieldInfo = (~) ActionRendition+    type AttrGetType ActionRenditionTypeFieldInfo = ActionType+    type AttrLabel ActionRenditionTypeFieldInfo = "type"+    attrGet _ = actionRenditionReadType+    attrSet _ = actionRenditionWriteType+    attrConstruct = undefined+    attrClear _ = undefined++actionRenditionType :: AttrLabelProxy "type"+actionRenditionType = AttrLabelProxy+++actionRenditionReadTitle :: MonadIO m => ActionRendition -> m (Maybe T.Text)+actionRenditionReadTitle s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 8) :: IO CString-    val' <- cstringToText val-    return val'+    result <- convertIfNonNull val $ \val' -> do+        val'' <- cstringToText val'+        return val''+    return result -actionRenditionReadOp :: ActionRendition -> IO Int32-actionRenditionReadOp s = withManagedPtr s $ \ptr -> do+actionRenditionWriteTitle :: MonadIO m => ActionRendition -> CString -> m ()+actionRenditionWriteTitle s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 8) (val :: CString)++actionRenditionClearTitle :: MonadIO m => ActionRendition -> m ()+actionRenditionClearTitle s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 8) (nullPtr :: CString)++data ActionRenditionTitleFieldInfo+instance AttrInfo ActionRenditionTitleFieldInfo where+    type AttrAllowedOps ActionRenditionTitleFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint ActionRenditionTitleFieldInfo = (~) CString+    type AttrBaseTypeConstraint ActionRenditionTitleFieldInfo = (~) ActionRendition+    type AttrGetType ActionRenditionTitleFieldInfo = Maybe T.Text+    type AttrLabel ActionRenditionTitleFieldInfo = "title"+    attrGet _ = actionRenditionReadTitle+    attrSet _ = actionRenditionWriteTitle+    attrConstruct = undefined+    attrClear _ = actionRenditionClearTitle++actionRenditionTitle :: AttrLabelProxy "title"+actionRenditionTitle = AttrLabelProxy+++actionRenditionReadOp :: MonadIO m => ActionRendition -> m Int32+actionRenditionReadOp s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 16) :: IO Int32     return val -actionRenditionReadMedia :: ActionRendition -> IO Media-actionRenditionReadMedia s = withManagedPtr s $ \ptr -> do+actionRenditionWriteOp :: MonadIO m => ActionRendition -> Int32 -> m ()+actionRenditionWriteOp s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 16) (val :: Int32)++data ActionRenditionOpFieldInfo+instance AttrInfo ActionRenditionOpFieldInfo where+    type AttrAllowedOps ActionRenditionOpFieldInfo = '[ 'AttrSet, 'AttrGet]+    type AttrSetTypeConstraint ActionRenditionOpFieldInfo = (~) Int32+    type AttrBaseTypeConstraint ActionRenditionOpFieldInfo = (~) ActionRendition+    type AttrGetType ActionRenditionOpFieldInfo = Int32+    type AttrLabel ActionRenditionOpFieldInfo = "op"+    attrGet _ = actionRenditionReadOp+    attrSet _ = actionRenditionWriteOp+    attrConstruct = undefined+    attrClear _ = undefined++actionRenditionOp :: AttrLabelProxy "op"+actionRenditionOp = AttrLabelProxy+++actionRenditionReadMedia :: MonadIO m => ActionRendition -> m (Maybe Media)+actionRenditionReadMedia s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 24) :: IO (Ptr Media)-    val' <- (newObject Media) val-    return val'+    result <- convertIfNonNull val $ \val' -> do+        val'' <- (newObject Media) val'+        return val''+    return result++actionRenditionWriteMedia :: MonadIO m => ActionRendition -> Ptr Media -> m ()+actionRenditionWriteMedia s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 24) (val :: Ptr Media)++actionRenditionClearMedia :: MonadIO m => ActionRendition -> m ()+actionRenditionClearMedia s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 24) (nullPtr :: Ptr Media)++data ActionRenditionMediaFieldInfo+instance AttrInfo ActionRenditionMediaFieldInfo where+    type AttrAllowedOps ActionRenditionMediaFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint ActionRenditionMediaFieldInfo = (~) (Ptr Media)+    type AttrBaseTypeConstraint ActionRenditionMediaFieldInfo = (~) ActionRendition+    type AttrGetType ActionRenditionMediaFieldInfo = Maybe Media+    type AttrLabel ActionRenditionMediaFieldInfo = "media"+    attrGet _ = actionRenditionReadMedia+    attrSet _ = actionRenditionWriteMedia+    attrConstruct = undefined+    attrClear _ = actionRenditionClearMedia++actionRenditionMedia :: AttrLabelProxy "media"+actionRenditionMedia = AttrLabelProxy++++type instance AttributeList ActionRendition = ActionRenditionAttributeList+type ActionRenditionAttributeList = ('[ '("type", ActionRenditionTypeFieldInfo), '("title", ActionRenditionTitleFieldInfo), '("op", ActionRenditionOpFieldInfo), '("media", ActionRenditionMediaFieldInfo)] :: [(Symbol, *)])  type family ResolveActionRenditionMethod (t :: Symbol) (o :: *) :: * where     ResolveActionRenditionMethod l o = MethodResolutionFailed l o

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