{-# LANGUAGE TypeApplications #-}


-- | Copyright  : Will Thompson and Iñaki García Etxebarria
-- License    : LGPL-2.1
-- Maintainer : Iñaki García Etxebarria
-- 
-- /No description available in the introspection data./

#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif

module GI.Poppler.Objects.AnnotTextMarkup
    ( 

-- * Exported types
    AnnotTextMarkup(..)                     ,
    IsAnnotTextMarkup                       ,
    toAnnotTextMarkup                       ,


 -- * Methods
-- | 
-- 
--  === __Click to display all available methods, including inherited ones__
-- ==== Methods
-- [bindProperty]("GI.GObject.Objects.Object#g:method:bindProperty"), [bindPropertyFull]("GI.GObject.Objects.Object#g:method:bindPropertyFull"), [forceFloating]("GI.GObject.Objects.Object#g:method:forceFloating"), [freezeNotify]("GI.GObject.Objects.Object#g:method:freezeNotify"), [getv]("GI.GObject.Objects.Object#g:method:getv"), [hasPopup]("GI.Poppler.Objects.AnnotMarkup#g:method:hasPopup"), [isFloating]("GI.GObject.Objects.Object#g:method:isFloating"), [notify]("GI.GObject.Objects.Object#g:method:notify"), [notifyByPspec]("GI.GObject.Objects.Object#g:method:notifyByPspec"), [ref]("GI.GObject.Objects.Object#g:method:ref"), [refSink]("GI.GObject.Objects.Object#g:method:refSink"), [runDispose]("GI.GObject.Objects.Object#g:method:runDispose"), [stealData]("GI.GObject.Objects.Object#g:method:stealData"), [stealQdata]("GI.GObject.Objects.Object#g:method:stealQdata"), [thawNotify]("GI.GObject.Objects.Object#g:method:thawNotify"), [unref]("GI.GObject.Objects.Object#g:method:unref"), [watchClosure]("GI.GObject.Objects.Object#g:method:watchClosure").
-- 
-- ==== Getters
-- [getAnnotType]("GI.Poppler.Objects.Annot#g:method:getAnnotType"), [getColor]("GI.Poppler.Objects.Annot#g:method:getColor"), [getContents]("GI.Poppler.Objects.Annot#g:method:getContents"), [getData]("GI.GObject.Objects.Object#g:method:getData"), [getDate]("GI.Poppler.Objects.AnnotMarkup#g:method:getDate"), [getExternalData]("GI.Poppler.Objects.AnnotMarkup#g:method:getExternalData"), [getFlags]("GI.Poppler.Objects.Annot#g:method:getFlags"), [getLabel]("GI.Poppler.Objects.AnnotMarkup#g:method:getLabel"), [getModified]("GI.Poppler.Objects.Annot#g:method:getModified"), [getName]("GI.Poppler.Objects.Annot#g:method:getName"), [getOpacity]("GI.Poppler.Objects.AnnotMarkup#g:method:getOpacity"), [getPageIndex]("GI.Poppler.Objects.Annot#g:method:getPageIndex"), [getPopupIsOpen]("GI.Poppler.Objects.AnnotMarkup#g:method:getPopupIsOpen"), [getPopupRectangle]("GI.Poppler.Objects.AnnotMarkup#g:method:getPopupRectangle"), [getProperty]("GI.GObject.Objects.Object#g:method:getProperty"), [getQdata]("GI.GObject.Objects.Object#g:method:getQdata"), [getQuadrilaterals]("GI.Poppler.Objects.AnnotTextMarkup#g:method:getQuadrilaterals"), [getRectangle]("GI.Poppler.Objects.Annot#g:method:getRectangle"), [getReplyTo]("GI.Poppler.Objects.AnnotMarkup#g:method:getReplyTo"), [getSubject]("GI.Poppler.Objects.AnnotMarkup#g:method:getSubject").
-- 
-- ==== Setters
-- [setColor]("GI.Poppler.Objects.Annot#g:method:setColor"), [setContents]("GI.Poppler.Objects.Annot#g:method:setContents"), [setData]("GI.GObject.Objects.Object#g:method:setData"), [setDataFull]("GI.GObject.Objects.Object#g:method:setDataFull"), [setFlags]("GI.Poppler.Objects.Annot#g:method:setFlags"), [setLabel]("GI.Poppler.Objects.AnnotMarkup#g:method:setLabel"), [setOpacity]("GI.Poppler.Objects.AnnotMarkup#g:method:setOpacity"), [setPopup]("GI.Poppler.Objects.AnnotMarkup#g:method:setPopup"), [setPopupIsOpen]("GI.Poppler.Objects.AnnotMarkup#g:method:setPopupIsOpen"), [setPopupRectangle]("GI.Poppler.Objects.AnnotMarkup#g:method:setPopupRectangle"), [setProperty]("GI.GObject.Objects.Object#g:method:setProperty"), [setQuadrilaterals]("GI.Poppler.Objects.AnnotTextMarkup#g:method:setQuadrilaterals"), [setRectangle]("GI.Poppler.Objects.Annot#g:method:setRectangle").

#if defined(ENABLE_OVERLOADING)
    ResolveAnnotTextMarkupMethod            ,
#endif

-- ** getQuadrilaterals #method:getQuadrilaterals#

#if defined(ENABLE_OVERLOADING)
    AnnotTextMarkupGetQuadrilateralsMethodInfo,
#endif
    annotTextMarkupGetQuadrilaterals        ,


-- ** newHighlight #method:newHighlight#

    annotTextMarkupNewHighlight             ,


-- ** newSquiggly #method:newSquiggly#

    annotTextMarkupNewSquiggly              ,


-- ** newStrikeout #method:newStrikeout#

    annotTextMarkupNewStrikeout             ,


-- ** newUnderline #method:newUnderline#

    annotTextMarkupNewUnderline             ,


-- ** setQuadrilaterals #method:setQuadrilaterals#

#if defined(ENABLE_OVERLOADING)
    AnnotTextMarkupSetQuadrilateralsMethodInfo,
#endif
    annotTextMarkupSetQuadrilaterals        ,




    ) where

import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P

import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT

-- Workaround for https://gitlab.haskell.org/ghc/ghc/-/issues/23392
#if MIN_VERSION_base(4,18,0)
import qualified GI.Cairo.Structs.Context as Cairo.Context
import qualified GI.Cairo.Structs.Region as Cairo.Region
import qualified GI.Cairo.Structs.Surface as Cairo.Surface
import qualified GI.GLib.Structs.Bytes as GLib.Bytes
import qualified GI.GLib.Structs.Date as GLib.Date
import qualified GI.GLib.Structs.DateTime as GLib.DateTime
import qualified GI.GLib.Structs.String as GLib.String
import qualified GI.GLib.Structs.Tree as GLib.Tree
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Callbacks as Gio.Callbacks
import qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult
import qualified GI.Gio.Interfaces.File as Gio.File
import qualified GI.Gio.Objects.Cancellable as Gio.Cancellable
import qualified GI.Gio.Objects.InputStream as Gio.InputStream
import qualified GI.Poppler.Callbacks as Poppler.Callbacks
import {-# SOURCE #-} qualified GI.Poppler.Enums as Poppler.Enums
import {-# SOURCE #-} qualified GI.Poppler.Flags as Poppler.Flags
import {-# SOURCE #-} qualified GI.Poppler.Objects.Annot as Poppler.Annot
import {-# SOURCE #-} qualified GI.Poppler.Objects.AnnotMarkup as Poppler.AnnotMarkup
import {-# SOURCE #-} qualified GI.Poppler.Objects.Attachment as Poppler.Attachment
import {-# SOURCE #-} qualified GI.Poppler.Objects.Document as Poppler.Document
import {-# SOURCE #-} qualified GI.Poppler.Objects.FormField as Poppler.FormField
import {-# SOURCE #-} qualified GI.Poppler.Objects.Layer as Poppler.Layer
import {-# SOURCE #-} qualified GI.Poppler.Objects.Media as Poppler.Media
import {-# SOURCE #-} qualified GI.Poppler.Objects.Movie as Poppler.Movie
import {-# SOURCE #-} qualified GI.Poppler.Objects.PSFile as Poppler.PSFile
import {-# SOURCE #-} qualified GI.Poppler.Objects.Page as Poppler.Page
import {-# SOURCE #-} qualified GI.Poppler.Structs.ActionAny as Poppler.ActionAny
import {-# SOURCE #-} qualified GI.Poppler.Structs.ActionGotoDest as Poppler.ActionGotoDest
import {-# SOURCE #-} qualified GI.Poppler.Structs.ActionGotoRemote as Poppler.ActionGotoRemote
import {-# SOURCE #-} qualified GI.Poppler.Structs.ActionJavascript as Poppler.ActionJavascript
import {-# SOURCE #-} qualified GI.Poppler.Structs.ActionLaunch as Poppler.ActionLaunch
import {-# SOURCE #-} qualified GI.Poppler.Structs.ActionLayer as Poppler.ActionLayer
import {-# SOURCE #-} qualified GI.Poppler.Structs.ActionMovie as Poppler.ActionMovie
import {-# SOURCE #-} qualified GI.Poppler.Structs.ActionNamed as Poppler.ActionNamed
import {-# SOURCE #-} qualified GI.Poppler.Structs.ActionOCGState as Poppler.ActionOCGState
import {-# SOURCE #-} qualified GI.Poppler.Structs.ActionRendition as Poppler.ActionRendition
import {-# SOURCE #-} qualified GI.Poppler.Structs.ActionResetForm as Poppler.ActionResetForm
import {-# SOURCE #-} qualified GI.Poppler.Structs.ActionUri as Poppler.ActionUri
import {-# SOURCE #-} qualified GI.Poppler.Structs.AnnotMapping as Poppler.AnnotMapping
import {-# SOURCE #-} qualified GI.Poppler.Structs.CertificateInfo as Poppler.CertificateInfo
import {-# SOURCE #-} qualified GI.Poppler.Structs.Color as Poppler.Color
import {-# SOURCE #-} qualified GI.Poppler.Structs.Dest as Poppler.Dest
import {-# SOURCE #-} qualified GI.Poppler.Structs.FormFieldMapping as Poppler.FormFieldMapping
import {-# SOURCE #-} qualified GI.Poppler.Structs.ImageMapping as Poppler.ImageMapping
import {-# SOURCE #-} qualified GI.Poppler.Structs.LinkMapping as Poppler.LinkMapping
import {-# SOURCE #-} qualified GI.Poppler.Structs.PageRange as Poppler.PageRange
import {-# SOURCE #-} qualified GI.Poppler.Structs.PageTransition as Poppler.PageTransition
import {-# SOURCE #-} qualified GI.Poppler.Structs.Point as Poppler.Point
import {-# SOURCE #-} qualified GI.Poppler.Structs.Quadrilateral as Poppler.Quadrilateral
import {-# SOURCE #-} qualified GI.Poppler.Structs.Rectangle as Poppler.Rectangle
import {-# SOURCE #-} qualified GI.Poppler.Structs.SignatureInfo as Poppler.SignatureInfo
import {-# SOURCE #-} qualified GI.Poppler.Structs.SigningData as Poppler.SigningData
import {-# SOURCE #-} qualified GI.Poppler.Structs.TextAttributes as Poppler.TextAttributes
import {-# SOURCE #-} qualified GI.Poppler.Unions.Action as Poppler.Action

#else
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Poppler.Objects.Annot as Poppler.Annot
import {-# SOURCE #-} qualified GI.Poppler.Objects.AnnotMarkup as Poppler.AnnotMarkup
import {-# SOURCE #-} qualified GI.Poppler.Objects.Document as Poppler.Document
import {-# SOURCE #-} qualified GI.Poppler.Structs.Quadrilateral as Poppler.Quadrilateral
import {-# SOURCE #-} qualified GI.Poppler.Structs.Rectangle as Poppler.Rectangle

#endif

-- | Memory-managed wrapper type.
newtype AnnotTextMarkup = AnnotTextMarkup (SP.ManagedPtr AnnotTextMarkup)
    deriving (AnnotTextMarkup -> AnnotTextMarkup -> Bool
(AnnotTextMarkup -> AnnotTextMarkup -> Bool)
-> (AnnotTextMarkup -> AnnotTextMarkup -> Bool)
-> Eq AnnotTextMarkup
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AnnotTextMarkup -> AnnotTextMarkup -> Bool
== :: AnnotTextMarkup -> AnnotTextMarkup -> Bool
$c/= :: AnnotTextMarkup -> AnnotTextMarkup -> Bool
/= :: AnnotTextMarkup -> AnnotTextMarkup -> Bool
Eq)

instance SP.ManagedPtrNewtype AnnotTextMarkup where
    toManagedPtr :: AnnotTextMarkup -> ManagedPtr AnnotTextMarkup
toManagedPtr (AnnotTextMarkup ManagedPtr AnnotTextMarkup
p) = ManagedPtr AnnotTextMarkup
p

foreign import ccall "poppler_annot_text_markup_get_type"
    c_poppler_annot_text_markup_get_type :: IO B.Types.GType

instance B.Types.TypedObject AnnotTextMarkup where
    glibType :: IO GType
glibType = IO GType
c_poppler_annot_text_markup_get_type

instance B.Types.GObject AnnotTextMarkup

-- | Type class for types which can be safely cast to `AnnotTextMarkup`, for instance with `toAnnotTextMarkup`.
class (SP.GObject o, O.IsDescendantOf AnnotTextMarkup o) => IsAnnotTextMarkup o
instance (SP.GObject o, O.IsDescendantOf AnnotTextMarkup o) => IsAnnotTextMarkup o

instance O.HasParentTypes AnnotTextMarkup
type instance O.ParentTypes AnnotTextMarkup = '[Poppler.AnnotMarkup.AnnotMarkup, Poppler.Annot.Annot, GObject.Object.Object]

-- | Cast to `AnnotTextMarkup`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.
toAnnotTextMarkup :: (MIO.MonadIO m, IsAnnotTextMarkup o) => o -> m AnnotTextMarkup
toAnnotTextMarkup :: forall (m :: * -> *) o.
(MonadIO m, IsAnnotTextMarkup o) =>
o -> m AnnotTextMarkup
toAnnotTextMarkup = IO AnnotTextMarkup -> m AnnotTextMarkup
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO AnnotTextMarkup -> m AnnotTextMarkup)
-> (o -> IO AnnotTextMarkup) -> o -> m AnnotTextMarkup
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr AnnotTextMarkup -> AnnotTextMarkup)
-> o -> IO AnnotTextMarkup
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
 ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr AnnotTextMarkup -> AnnotTextMarkup
AnnotTextMarkup

-- | Convert 'AnnotTextMarkup' to and from 'Data.GI.Base.GValue.GValue'. See 'Data.GI.Base.GValue.toGValue' and 'Data.GI.Base.GValue.fromGValue'.
instance B.GValue.IsGValue (Maybe AnnotTextMarkup) where
    gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_poppler_annot_text_markup_get_type
    gvalueSet_ :: Ptr GValue -> Maybe AnnotTextMarkup -> IO ()
gvalueSet_ Ptr GValue
gv Maybe AnnotTextMarkup
P.Nothing = Ptr GValue -> Ptr AnnotTextMarkup -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr AnnotTextMarkup
forall a. Ptr a
FP.nullPtr :: FP.Ptr AnnotTextMarkup)
    gvalueSet_ Ptr GValue
gv (P.Just AnnotTextMarkup
obj) = AnnotTextMarkup -> (Ptr AnnotTextMarkup -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr AnnotTextMarkup
obj (Ptr GValue -> Ptr AnnotTextMarkup -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
    gvalueGet_ :: Ptr GValue -> IO (Maybe AnnotTextMarkup)
gvalueGet_ Ptr GValue
gv = do
        Ptr AnnotTextMarkup
ptr <- Ptr GValue -> IO (Ptr AnnotTextMarkup)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr AnnotTextMarkup)
        if Ptr AnnotTextMarkup
ptr Ptr AnnotTextMarkup -> Ptr AnnotTextMarkup -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr AnnotTextMarkup
forall a. Ptr a
FP.nullPtr
        then AnnotTextMarkup -> Maybe AnnotTextMarkup
forall a. a -> Maybe a
P.Just (AnnotTextMarkup -> Maybe AnnotTextMarkup)
-> IO AnnotTextMarkup -> IO (Maybe AnnotTextMarkup)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr AnnotTextMarkup -> AnnotTextMarkup)
-> Ptr AnnotTextMarkup -> IO AnnotTextMarkup
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr AnnotTextMarkup -> AnnotTextMarkup
AnnotTextMarkup Ptr AnnotTextMarkup
ptr
        else Maybe AnnotTextMarkup -> IO (Maybe AnnotTextMarkup)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe AnnotTextMarkup
forall a. Maybe a
P.Nothing
        
    

#if defined(ENABLE_OVERLOADING)
type family ResolveAnnotTextMarkupMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
    ResolveAnnotTextMarkupMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
    ResolveAnnotTextMarkupMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
    ResolveAnnotTextMarkupMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
    ResolveAnnotTextMarkupMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
    ResolveAnnotTextMarkupMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
    ResolveAnnotTextMarkupMethod "hasPopup" o = Poppler.AnnotMarkup.AnnotMarkupHasPopupMethodInfo
    ResolveAnnotTextMarkupMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
    ResolveAnnotTextMarkupMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
    ResolveAnnotTextMarkupMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
    ResolveAnnotTextMarkupMethod "ref" o = GObject.Object.ObjectRefMethodInfo
    ResolveAnnotTextMarkupMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
    ResolveAnnotTextMarkupMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
    ResolveAnnotTextMarkupMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
    ResolveAnnotTextMarkupMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
    ResolveAnnotTextMarkupMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
    ResolveAnnotTextMarkupMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
    ResolveAnnotTextMarkupMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
    ResolveAnnotTextMarkupMethod "getAnnotType" o = Poppler.Annot.AnnotGetAnnotTypeMethodInfo
    ResolveAnnotTextMarkupMethod "getColor" o = Poppler.Annot.AnnotGetColorMethodInfo
    ResolveAnnotTextMarkupMethod "getContents" o = Poppler.Annot.AnnotGetContentsMethodInfo
    ResolveAnnotTextMarkupMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
    ResolveAnnotTextMarkupMethod "getDate" o = Poppler.AnnotMarkup.AnnotMarkupGetDateMethodInfo
    ResolveAnnotTextMarkupMethod "getExternalData" o = Poppler.AnnotMarkup.AnnotMarkupGetExternalDataMethodInfo
    ResolveAnnotTextMarkupMethod "getFlags" o = Poppler.Annot.AnnotGetFlagsMethodInfo
    ResolveAnnotTextMarkupMethod "getLabel" o = Poppler.AnnotMarkup.AnnotMarkupGetLabelMethodInfo
    ResolveAnnotTextMarkupMethod "getModified" o = Poppler.Annot.AnnotGetModifiedMethodInfo
    ResolveAnnotTextMarkupMethod "getName" o = Poppler.Annot.AnnotGetNameMethodInfo
    ResolveAnnotTextMarkupMethod "getOpacity" o = Poppler.AnnotMarkup.AnnotMarkupGetOpacityMethodInfo
    ResolveAnnotTextMarkupMethod "getPageIndex" o = Poppler.Annot.AnnotGetPageIndexMethodInfo
    ResolveAnnotTextMarkupMethod "getPopupIsOpen" o = Poppler.AnnotMarkup.AnnotMarkupGetPopupIsOpenMethodInfo
    ResolveAnnotTextMarkupMethod "getPopupRectangle" o = Poppler.AnnotMarkup.AnnotMarkupGetPopupRectangleMethodInfo
    ResolveAnnotTextMarkupMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
    ResolveAnnotTextMarkupMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
    ResolveAnnotTextMarkupMethod "getQuadrilaterals" o = AnnotTextMarkupGetQuadrilateralsMethodInfo
    ResolveAnnotTextMarkupMethod "getRectangle" o = Poppler.Annot.AnnotGetRectangleMethodInfo
    ResolveAnnotTextMarkupMethod "getReplyTo" o = Poppler.AnnotMarkup.AnnotMarkupGetReplyToMethodInfo
    ResolveAnnotTextMarkupMethod "getSubject" o = Poppler.AnnotMarkup.AnnotMarkupGetSubjectMethodInfo
    ResolveAnnotTextMarkupMethod "setColor" o = Poppler.Annot.AnnotSetColorMethodInfo
    ResolveAnnotTextMarkupMethod "setContents" o = Poppler.Annot.AnnotSetContentsMethodInfo
    ResolveAnnotTextMarkupMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
    ResolveAnnotTextMarkupMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
    ResolveAnnotTextMarkupMethod "setFlags" o = Poppler.Annot.AnnotSetFlagsMethodInfo
    ResolveAnnotTextMarkupMethod "setLabel" o = Poppler.AnnotMarkup.AnnotMarkupSetLabelMethodInfo
    ResolveAnnotTextMarkupMethod "setOpacity" o = Poppler.AnnotMarkup.AnnotMarkupSetOpacityMethodInfo
    ResolveAnnotTextMarkupMethod "setPopup" o = Poppler.AnnotMarkup.AnnotMarkupSetPopupMethodInfo
    ResolveAnnotTextMarkupMethod "setPopupIsOpen" o = Poppler.AnnotMarkup.AnnotMarkupSetPopupIsOpenMethodInfo
    ResolveAnnotTextMarkupMethod "setPopupRectangle" o = Poppler.AnnotMarkup.AnnotMarkupSetPopupRectangleMethodInfo
    ResolveAnnotTextMarkupMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
    ResolveAnnotTextMarkupMethod "setQuadrilaterals" o = AnnotTextMarkupSetQuadrilateralsMethodInfo
    ResolveAnnotTextMarkupMethod "setRectangle" o = Poppler.Annot.AnnotSetRectangleMethodInfo
    ResolveAnnotTextMarkupMethod l o = O.MethodResolutionFailed l o

instance (info ~ ResolveAnnotTextMarkupMethod t AnnotTextMarkup, O.OverloadedMethod info AnnotTextMarkup p) => OL.IsLabel t (AnnotTextMarkup -> p) where
#if MIN_VERSION_base(4,10,0)
    fromLabel = O.overloadedMethod @info
#else
    fromLabel _ = O.overloadedMethod @info
#endif

#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveAnnotTextMarkupMethod t AnnotTextMarkup, O.OverloadedMethod info AnnotTextMarkup p, R.HasField t AnnotTextMarkup p) => R.HasField t AnnotTextMarkup p where
    getField = O.overloadedMethod @info

#endif

instance (info ~ ResolveAnnotTextMarkupMethod t AnnotTextMarkup, O.OverloadedMethodInfo info AnnotTextMarkup) => OL.IsLabel t (O.MethodProxy info AnnotTextMarkup) where
#if MIN_VERSION_base(4,10,0)
    fromLabel = O.MethodProxy
#else
    fromLabel _ = O.MethodProxy
#endif

#endif

#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList AnnotTextMarkup
type instance O.AttributeList AnnotTextMarkup = AnnotTextMarkupAttributeList
type AnnotTextMarkupAttributeList = ('[ ] :: [(Symbol, DK.Type)])
#endif

#if defined(ENABLE_OVERLOADING)
#endif

#if defined(ENABLE_OVERLOADING)
type instance O.SignalList AnnotTextMarkup = AnnotTextMarkupSignalList
type AnnotTextMarkupSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])

#endif

-- method AnnotTextMarkup::new_highlight
-- method type : Constructor
-- Args: [ Arg
--           { argCName = "doc"
--           , argType =
--               TInterface Name { namespace = "Poppler" , name = "Document" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "a #PopplerDocument" , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "rect"
--           , argType =
--               TInterface Name { namespace = "Poppler" , name = "Rectangle" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "a #PopplerRectangle"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "quadrilaterals"
--           , argType =
--               TGArray
--                 (TInterface
--                    Name { namespace = "Poppler" , name = "Quadrilateral" })
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just "A #GArray of\n  #PopplerQuadrilateral<!-- -->s"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just
--               (TInterface
--                  Name { namespace = "Poppler" , name = "AnnotTextMarkup" })
-- throws : False
-- Skip return : False

foreign import ccall "poppler_annot_text_markup_new_highlight" poppler_annot_text_markup_new_highlight :: 
    Ptr Poppler.Document.Document ->        -- doc : TInterface (Name {namespace = "Poppler", name = "Document"})
    Ptr Poppler.Rectangle.Rectangle ->      -- rect : TInterface (Name {namespace = "Poppler", name = "Rectangle"})
    Ptr (GArray (Ptr Poppler.Quadrilateral.Quadrilateral)) -> -- quadrilaterals : TGArray (TInterface (Name {namespace = "Poppler", name = "Quadrilateral"}))
    IO (Ptr AnnotTextMarkup)

-- | Creates a new Highlight Text annotation that will be
-- located on /@rect@/ when added to a page. See 'GI.Poppler.Objects.Page.pageAddAnnot'
-- 
-- /Since: 0.26/
annotTextMarkupNewHighlight ::
    (B.CallStack.HasCallStack, MonadIO m, Poppler.Document.IsDocument a) =>
    a
    -- ^ /@doc@/: a t'GI.Poppler.Objects.Document.Document'
    -> Poppler.Rectangle.Rectangle
    -- ^ /@rect@/: a t'GI.Poppler.Structs.Rectangle.Rectangle'
    -> [Poppler.Quadrilateral.Quadrilateral]
    -- ^ /@quadrilaterals@/: A t'GI.GLib.Structs.Array.Array' of
    --   t'GI.Poppler.Structs.Quadrilateral.Quadrilateral's
    -> m AnnotTextMarkup
    -- ^ __Returns:__ A newly created t'GI.Poppler.Objects.AnnotTextMarkup.AnnotTextMarkup' annotation
annotTextMarkupNewHighlight :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> Rectangle -> [Quadrilateral] -> m AnnotTextMarkup
annotTextMarkupNewHighlight a
doc Rectangle
rect [Quadrilateral]
quadrilaterals = IO AnnotTextMarkup -> m AnnotTextMarkup
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO AnnotTextMarkup -> m AnnotTextMarkup)
-> IO AnnotTextMarkup -> m AnnotTextMarkup
forall a b. (a -> b) -> a -> b
$ do
    Ptr Document
doc' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
doc
    Ptr Rectangle
rect' <- Rectangle -> IO (Ptr Rectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
rect
    [Ptr Quadrilateral]
quadrilaterals' <- (Quadrilateral -> IO (Ptr Quadrilateral))
-> [Quadrilateral] -> IO [Ptr Quadrilateral]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM Quadrilateral -> IO (Ptr Quadrilateral)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr [Quadrilateral]
quadrilaterals
    Ptr (GArray (Ptr Quadrilateral))
quadrilaterals'' <- [Ptr Quadrilateral] -> IO (Ptr (GArray (Ptr Quadrilateral)))
forall a. Storable a => [a] -> IO (Ptr (GArray a))
packGArray [Ptr Quadrilateral]
quadrilaterals'
    Ptr AnnotTextMarkup
result <- Ptr Document
-> Ptr Rectangle
-> Ptr (GArray (Ptr Quadrilateral))
-> IO (Ptr AnnotTextMarkup)
poppler_annot_text_markup_new_highlight Ptr Document
doc' Ptr Rectangle
rect' Ptr (GArray (Ptr Quadrilateral))
quadrilaterals''
    Text -> Ptr AnnotTextMarkup -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"annotTextMarkupNewHighlight" Ptr AnnotTextMarkup
result
    AnnotTextMarkup
result' <- ((ManagedPtr AnnotTextMarkup -> AnnotTextMarkup)
-> Ptr AnnotTextMarkup -> IO AnnotTextMarkup
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr AnnotTextMarkup -> AnnotTextMarkup
AnnotTextMarkup) Ptr AnnotTextMarkup
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
doc
    Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
rect
    (Quadrilateral -> IO ()) -> [Quadrilateral] -> IO ()
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ Quadrilateral -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr [Quadrilateral]
quadrilaterals
    Ptr (GArray (Ptr Quadrilateral)) -> IO ()
forall a. Ptr (GArray a) -> IO ()
unrefGArray Ptr (GArray (Ptr Quadrilateral))
quadrilaterals''
    AnnotTextMarkup -> IO AnnotTextMarkup
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return AnnotTextMarkup
result'

#if defined(ENABLE_OVERLOADING)
#endif

-- method AnnotTextMarkup::new_squiggly
-- method type : Constructor
-- Args: [ Arg
--           { argCName = "doc"
--           , argType =
--               TInterface Name { namespace = "Poppler" , name = "Document" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "a #PopplerDocument" , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "rect"
--           , argType =
--               TInterface Name { namespace = "Poppler" , name = "Rectangle" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "a #PopplerRectangle"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "quadrilaterals"
--           , argType =
--               TGArray
--                 (TInterface
--                    Name { namespace = "Poppler" , name = "Quadrilateral" })
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just "A #GArray of\n  #PopplerQuadrilateral<!-- -->s"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just
--               (TInterface
--                  Name { namespace = "Poppler" , name = "AnnotTextMarkup" })
-- throws : False
-- Skip return : False

foreign import ccall "poppler_annot_text_markup_new_squiggly" poppler_annot_text_markup_new_squiggly :: 
    Ptr Poppler.Document.Document ->        -- doc : TInterface (Name {namespace = "Poppler", name = "Document"})
    Ptr Poppler.Rectangle.Rectangle ->      -- rect : TInterface (Name {namespace = "Poppler", name = "Rectangle"})
    Ptr (GArray (Ptr Poppler.Quadrilateral.Quadrilateral)) -> -- quadrilaterals : TGArray (TInterface (Name {namespace = "Poppler", name = "Quadrilateral"}))
    IO (Ptr AnnotTextMarkup)

-- | Creates a new Squiggly Text annotation that will be
-- located on /@rect@/ when added to a page. See 'GI.Poppler.Objects.Page.pageAddAnnot'
-- 
-- /Since: 0.26/
annotTextMarkupNewSquiggly ::
    (B.CallStack.HasCallStack, MonadIO m, Poppler.Document.IsDocument a) =>
    a
    -- ^ /@doc@/: a t'GI.Poppler.Objects.Document.Document'
    -> Poppler.Rectangle.Rectangle
    -- ^ /@rect@/: a t'GI.Poppler.Structs.Rectangle.Rectangle'
    -> [Poppler.Quadrilateral.Quadrilateral]
    -- ^ /@quadrilaterals@/: A t'GI.GLib.Structs.Array.Array' of
    --   t'GI.Poppler.Structs.Quadrilateral.Quadrilateral's
    -> m AnnotTextMarkup
    -- ^ __Returns:__ A newly created t'GI.Poppler.Objects.AnnotTextMarkup.AnnotTextMarkup' annotation
annotTextMarkupNewSquiggly :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> Rectangle -> [Quadrilateral] -> m AnnotTextMarkup
annotTextMarkupNewSquiggly a
doc Rectangle
rect [Quadrilateral]
quadrilaterals = IO AnnotTextMarkup -> m AnnotTextMarkup
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO AnnotTextMarkup -> m AnnotTextMarkup)
-> IO AnnotTextMarkup -> m AnnotTextMarkup
forall a b. (a -> b) -> a -> b
$ do
    Ptr Document
doc' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
doc
    Ptr Rectangle
rect' <- Rectangle -> IO (Ptr Rectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
rect
    [Ptr Quadrilateral]
quadrilaterals' <- (Quadrilateral -> IO (Ptr Quadrilateral))
-> [Quadrilateral] -> IO [Ptr Quadrilateral]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM Quadrilateral -> IO (Ptr Quadrilateral)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr [Quadrilateral]
quadrilaterals
    Ptr (GArray (Ptr Quadrilateral))
quadrilaterals'' <- [Ptr Quadrilateral] -> IO (Ptr (GArray (Ptr Quadrilateral)))
forall a. Storable a => [a] -> IO (Ptr (GArray a))
packGArray [Ptr Quadrilateral]
quadrilaterals'
    Ptr AnnotTextMarkup
result <- Ptr Document
-> Ptr Rectangle
-> Ptr (GArray (Ptr Quadrilateral))
-> IO (Ptr AnnotTextMarkup)
poppler_annot_text_markup_new_squiggly Ptr Document
doc' Ptr Rectangle
rect' Ptr (GArray (Ptr Quadrilateral))
quadrilaterals''
    Text -> Ptr AnnotTextMarkup -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"annotTextMarkupNewSquiggly" Ptr AnnotTextMarkup
result
    AnnotTextMarkup
result' <- ((ManagedPtr AnnotTextMarkup -> AnnotTextMarkup)
-> Ptr AnnotTextMarkup -> IO AnnotTextMarkup
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr AnnotTextMarkup -> AnnotTextMarkup
AnnotTextMarkup) Ptr AnnotTextMarkup
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
doc
    Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
rect
    (Quadrilateral -> IO ()) -> [Quadrilateral] -> IO ()
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ Quadrilateral -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr [Quadrilateral]
quadrilaterals
    Ptr (GArray (Ptr Quadrilateral)) -> IO ()
forall a. Ptr (GArray a) -> IO ()
unrefGArray Ptr (GArray (Ptr Quadrilateral))
quadrilaterals''
    AnnotTextMarkup -> IO AnnotTextMarkup
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return AnnotTextMarkup
result'

#if defined(ENABLE_OVERLOADING)
#endif

-- method AnnotTextMarkup::new_strikeout
-- method type : Constructor
-- Args: [ Arg
--           { argCName = "doc"
--           , argType =
--               TInterface Name { namespace = "Poppler" , name = "Document" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "a #PopplerDocument" , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "rect"
--           , argType =
--               TInterface Name { namespace = "Poppler" , name = "Rectangle" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "a #PopplerRectangle"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "quadrilaterals"
--           , argType =
--               TGArray
--                 (TInterface
--                    Name { namespace = "Poppler" , name = "Quadrilateral" })
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just "A #GArray of\n  #PopplerQuadrilateral<!-- -->s"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just
--               (TInterface
--                  Name { namespace = "Poppler" , name = "AnnotTextMarkup" })
-- throws : False
-- Skip return : False

foreign import ccall "poppler_annot_text_markup_new_strikeout" poppler_annot_text_markup_new_strikeout :: 
    Ptr Poppler.Document.Document ->        -- doc : TInterface (Name {namespace = "Poppler", name = "Document"})
    Ptr Poppler.Rectangle.Rectangle ->      -- rect : TInterface (Name {namespace = "Poppler", name = "Rectangle"})
    Ptr (GArray (Ptr Poppler.Quadrilateral.Quadrilateral)) -> -- quadrilaterals : TGArray (TInterface (Name {namespace = "Poppler", name = "Quadrilateral"}))
    IO (Ptr AnnotTextMarkup)

-- | Creates a new Strike Out Text annotation that will be
-- located on /@rect@/ when added to a page. See 'GI.Poppler.Objects.Page.pageAddAnnot'
-- 
-- /Since: 0.26/
annotTextMarkupNewStrikeout ::
    (B.CallStack.HasCallStack, MonadIO m, Poppler.Document.IsDocument a) =>
    a
    -- ^ /@doc@/: a t'GI.Poppler.Objects.Document.Document'
    -> Poppler.Rectangle.Rectangle
    -- ^ /@rect@/: a t'GI.Poppler.Structs.Rectangle.Rectangle'
    -> [Poppler.Quadrilateral.Quadrilateral]
    -- ^ /@quadrilaterals@/: A t'GI.GLib.Structs.Array.Array' of
    --   t'GI.Poppler.Structs.Quadrilateral.Quadrilateral's
    -> m AnnotTextMarkup
    -- ^ __Returns:__ A newly created t'GI.Poppler.Objects.AnnotTextMarkup.AnnotTextMarkup' annotation
annotTextMarkupNewStrikeout :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> Rectangle -> [Quadrilateral] -> m AnnotTextMarkup
annotTextMarkupNewStrikeout a
doc Rectangle
rect [Quadrilateral]
quadrilaterals = IO AnnotTextMarkup -> m AnnotTextMarkup
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO AnnotTextMarkup -> m AnnotTextMarkup)
-> IO AnnotTextMarkup -> m AnnotTextMarkup
forall a b. (a -> b) -> a -> b
$ do
    Ptr Document
doc' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
doc
    Ptr Rectangle
rect' <- Rectangle -> IO (Ptr Rectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
rect
    [Ptr Quadrilateral]
quadrilaterals' <- (Quadrilateral -> IO (Ptr Quadrilateral))
-> [Quadrilateral] -> IO [Ptr Quadrilateral]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM Quadrilateral -> IO (Ptr Quadrilateral)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr [Quadrilateral]
quadrilaterals
    Ptr (GArray (Ptr Quadrilateral))
quadrilaterals'' <- [Ptr Quadrilateral] -> IO (Ptr (GArray (Ptr Quadrilateral)))
forall a. Storable a => [a] -> IO (Ptr (GArray a))
packGArray [Ptr Quadrilateral]
quadrilaterals'
    Ptr AnnotTextMarkup
result <- Ptr Document
-> Ptr Rectangle
-> Ptr (GArray (Ptr Quadrilateral))
-> IO (Ptr AnnotTextMarkup)
poppler_annot_text_markup_new_strikeout Ptr Document
doc' Ptr Rectangle
rect' Ptr (GArray (Ptr Quadrilateral))
quadrilaterals''
    Text -> Ptr AnnotTextMarkup -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"annotTextMarkupNewStrikeout" Ptr AnnotTextMarkup
result
    AnnotTextMarkup
result' <- ((ManagedPtr AnnotTextMarkup -> AnnotTextMarkup)
-> Ptr AnnotTextMarkup -> IO AnnotTextMarkup
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr AnnotTextMarkup -> AnnotTextMarkup
AnnotTextMarkup) Ptr AnnotTextMarkup
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
doc
    Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
rect
    (Quadrilateral -> IO ()) -> [Quadrilateral] -> IO ()
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ Quadrilateral -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr [Quadrilateral]
quadrilaterals
    Ptr (GArray (Ptr Quadrilateral)) -> IO ()
forall a. Ptr (GArray a) -> IO ()
unrefGArray Ptr (GArray (Ptr Quadrilateral))
quadrilaterals''
    AnnotTextMarkup -> IO AnnotTextMarkup
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return AnnotTextMarkup
result'

#if defined(ENABLE_OVERLOADING)
#endif

-- method AnnotTextMarkup::new_underline
-- method type : Constructor
-- Args: [ Arg
--           { argCName = "doc"
--           , argType =
--               TInterface Name { namespace = "Poppler" , name = "Document" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "a #PopplerDocument" , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "rect"
--           , argType =
--               TInterface Name { namespace = "Poppler" , name = "Rectangle" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "a #PopplerRectangle"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "quadrilaterals"
--           , argType =
--               TGArray
--                 (TInterface
--                    Name { namespace = "Poppler" , name = "Quadrilateral" })
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just "A #GArray of\n  #PopplerQuadrilateral<!-- -->s"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just
--               (TInterface
--                  Name { namespace = "Poppler" , name = "AnnotTextMarkup" })
-- throws : False
-- Skip return : False

foreign import ccall "poppler_annot_text_markup_new_underline" poppler_annot_text_markup_new_underline :: 
    Ptr Poppler.Document.Document ->        -- doc : TInterface (Name {namespace = "Poppler", name = "Document"})
    Ptr Poppler.Rectangle.Rectangle ->      -- rect : TInterface (Name {namespace = "Poppler", name = "Rectangle"})
    Ptr (GArray (Ptr Poppler.Quadrilateral.Quadrilateral)) -> -- quadrilaterals : TGArray (TInterface (Name {namespace = "Poppler", name = "Quadrilateral"}))
    IO (Ptr AnnotTextMarkup)

-- | Creates a new Underline Text annotation that will be
-- located on /@rect@/ when added to a page. See 'GI.Poppler.Objects.Page.pageAddAnnot'
-- 
-- /Since: 0.26/
annotTextMarkupNewUnderline ::
    (B.CallStack.HasCallStack, MonadIO m, Poppler.Document.IsDocument a) =>
    a
    -- ^ /@doc@/: a t'GI.Poppler.Objects.Document.Document'
    -> Poppler.Rectangle.Rectangle
    -- ^ /@rect@/: a t'GI.Poppler.Structs.Rectangle.Rectangle'
    -> [Poppler.Quadrilateral.Quadrilateral]
    -- ^ /@quadrilaterals@/: A t'GI.GLib.Structs.Array.Array' of
    --   t'GI.Poppler.Structs.Quadrilateral.Quadrilateral's
    -> m AnnotTextMarkup
    -- ^ __Returns:__ A newly created t'GI.Poppler.Objects.AnnotTextMarkup.AnnotTextMarkup' annotation
annotTextMarkupNewUnderline :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> Rectangle -> [Quadrilateral] -> m AnnotTextMarkup
annotTextMarkupNewUnderline a
doc Rectangle
rect [Quadrilateral]
quadrilaterals = IO AnnotTextMarkup -> m AnnotTextMarkup
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO AnnotTextMarkup -> m AnnotTextMarkup)
-> IO AnnotTextMarkup -> m AnnotTextMarkup
forall a b. (a -> b) -> a -> b
$ do
    Ptr Document
doc' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
doc
    Ptr Rectangle
rect' <- Rectangle -> IO (Ptr Rectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
rect
    [Ptr Quadrilateral]
quadrilaterals' <- (Quadrilateral -> IO (Ptr Quadrilateral))
-> [Quadrilateral] -> IO [Ptr Quadrilateral]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM Quadrilateral -> IO (Ptr Quadrilateral)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr [Quadrilateral]
quadrilaterals
    Ptr (GArray (Ptr Quadrilateral))
quadrilaterals'' <- [Ptr Quadrilateral] -> IO (Ptr (GArray (Ptr Quadrilateral)))
forall a. Storable a => [a] -> IO (Ptr (GArray a))
packGArray [Ptr Quadrilateral]
quadrilaterals'
    Ptr AnnotTextMarkup
result <- Ptr Document
-> Ptr Rectangle
-> Ptr (GArray (Ptr Quadrilateral))
-> IO (Ptr AnnotTextMarkup)
poppler_annot_text_markup_new_underline Ptr Document
doc' Ptr Rectangle
rect' Ptr (GArray (Ptr Quadrilateral))
quadrilaterals''
    Text -> Ptr AnnotTextMarkup -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"annotTextMarkupNewUnderline" Ptr AnnotTextMarkup
result
    AnnotTextMarkup
result' <- ((ManagedPtr AnnotTextMarkup -> AnnotTextMarkup)
-> Ptr AnnotTextMarkup -> IO AnnotTextMarkup
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr AnnotTextMarkup -> AnnotTextMarkup
AnnotTextMarkup) Ptr AnnotTextMarkup
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
doc
    Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
rect
    (Quadrilateral -> IO ()) -> [Quadrilateral] -> IO ()
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ Quadrilateral -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr [Quadrilateral]
quadrilaterals
    Ptr (GArray (Ptr Quadrilateral)) -> IO ()
forall a. Ptr (GArray a) -> IO ()
unrefGArray Ptr (GArray (Ptr Quadrilateral))
quadrilaterals''
    AnnotTextMarkup -> IO AnnotTextMarkup
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return AnnotTextMarkup
result'

#if defined(ENABLE_OVERLOADING)
#endif

-- method AnnotTextMarkup::get_quadrilaterals
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "poppler_annot"
--           , argType =
--               TInterface
--                 Name { namespace = "Poppler" , name = "AnnotTextMarkup" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A #PopplerAnnotTextMarkup"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just
--               (TGArray
--                  (TInterface
--                     Name { namespace = "Poppler" , name = "Quadrilateral" }))
-- throws : False
-- Skip return : False

foreign import ccall "poppler_annot_text_markup_get_quadrilaterals" poppler_annot_text_markup_get_quadrilaterals :: 
    Ptr AnnotTextMarkup ->                  -- poppler_annot : TInterface (Name {namespace = "Poppler", name = "AnnotTextMarkup"})
    IO (Ptr (GArray (Ptr Poppler.Quadrilateral.Quadrilateral)))

-- | Returns a t'GI.GLib.Structs.Array.Array' of t'GI.Poppler.Structs.Quadrilateral.Quadrilateral' items that map from a
-- location on /@page@/ to a t'GI.Poppler.Objects.AnnotTextMarkup.AnnotTextMarkup'.  This array must be freed
-- when done.
-- 
-- /Since: 0.26/
annotTextMarkupGetQuadrilaterals ::
    (B.CallStack.HasCallStack, MonadIO m, IsAnnotTextMarkup a) =>
    a
    -- ^ /@popplerAnnot@/: A t'GI.Poppler.Objects.AnnotTextMarkup.AnnotTextMarkup'
    -> m [Poppler.Quadrilateral.Quadrilateral]
    -- ^ __Returns:__ A t'GI.GLib.Structs.Array.Array' of t'GI.Poppler.Structs.Quadrilateral.Quadrilateral'
annotTextMarkupGetQuadrilaterals :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAnnotTextMarkup a) =>
a -> m [Quadrilateral]
annotTextMarkupGetQuadrilaterals a
popplerAnnot = IO [Quadrilateral] -> m [Quadrilateral]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [Quadrilateral] -> m [Quadrilateral])
-> IO [Quadrilateral] -> m [Quadrilateral]
forall a b. (a -> b) -> a -> b
$ do
    Ptr AnnotTextMarkup
popplerAnnot' <- a -> IO (Ptr AnnotTextMarkup)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerAnnot
    Ptr (GArray (Ptr Quadrilateral))
result <- Ptr AnnotTextMarkup -> IO (Ptr (GArray (Ptr Quadrilateral)))
poppler_annot_text_markup_get_quadrilaterals Ptr AnnotTextMarkup
popplerAnnot'
    Text -> Ptr (GArray (Ptr Quadrilateral)) -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"annotTextMarkupGetQuadrilaterals" Ptr (GArray (Ptr Quadrilateral))
result
    [Ptr Quadrilateral]
result' <- Ptr (GArray (Ptr Quadrilateral)) -> IO [Ptr Quadrilateral]
forall a. Storable a => Ptr (GArray a) -> IO [a]
unpackGArray Ptr (GArray (Ptr Quadrilateral))
result
    [Quadrilateral]
result'' <- (Ptr Quadrilateral -> IO Quadrilateral)
-> [Ptr Quadrilateral] -> IO [Quadrilateral]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM ((ManagedPtr Quadrilateral -> Quadrilateral)
-> Ptr Quadrilateral -> IO Quadrilateral
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Quadrilateral -> Quadrilateral
Poppler.Quadrilateral.Quadrilateral) [Ptr Quadrilateral]
result'
    Ptr (GArray (Ptr Quadrilateral)) -> IO ()
forall a. Ptr (GArray a) -> IO ()
unrefGArray Ptr (GArray (Ptr Quadrilateral))
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerAnnot
    [Quadrilateral] -> IO [Quadrilateral]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [Quadrilateral]
result''

#if defined(ENABLE_OVERLOADING)
data AnnotTextMarkupGetQuadrilateralsMethodInfo
instance (signature ~ (m [Poppler.Quadrilateral.Quadrilateral]), MonadIO m, IsAnnotTextMarkup a) => O.OverloadedMethod AnnotTextMarkupGetQuadrilateralsMethodInfo a signature where
    overloadedMethod = annotTextMarkupGetQuadrilaterals

instance O.OverloadedMethodInfo AnnotTextMarkupGetQuadrilateralsMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.Poppler.Objects.AnnotTextMarkup.annotTextMarkupGetQuadrilaterals",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Objects-AnnotTextMarkup.html#v:annotTextMarkupGetQuadrilaterals"
        })


#endif

-- method AnnotTextMarkup::set_quadrilaterals
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "poppler_annot"
--           , argType =
--               TInterface
--                 Name { namespace = "Poppler" , name = "AnnotTextMarkup" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A #PopplerAnnotTextMarkup"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "quadrilaterals"
--           , argType =
--               TGArray
--                 (TInterface
--                    Name { namespace = "Poppler" , name = "Quadrilateral" })
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just "A #GArray of\n  #PopplerQuadrilateral<!-- -->s"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "poppler_annot_text_markup_set_quadrilaterals" poppler_annot_text_markup_set_quadrilaterals :: 
    Ptr AnnotTextMarkup ->                  -- poppler_annot : TInterface (Name {namespace = "Poppler", name = "AnnotTextMarkup"})
    Ptr (GArray (Ptr Poppler.Quadrilateral.Quadrilateral)) -> -- quadrilaterals : TGArray (TInterface (Name {namespace = "Poppler", name = "Quadrilateral"}))
    IO ()

-- | Set the regions (Quadrilaterals) to apply the text markup in /@popplerAnnot@/.
-- 
-- /Since: 0.26/
annotTextMarkupSetQuadrilaterals ::
    (B.CallStack.HasCallStack, MonadIO m, IsAnnotTextMarkup a) =>
    a
    -- ^ /@popplerAnnot@/: A t'GI.Poppler.Objects.AnnotTextMarkup.AnnotTextMarkup'
    -> [Poppler.Quadrilateral.Quadrilateral]
    -- ^ /@quadrilaterals@/: A t'GI.GLib.Structs.Array.Array' of
    --   t'GI.Poppler.Structs.Quadrilateral.Quadrilateral's
    -> m ()
annotTextMarkupSetQuadrilaterals :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAnnotTextMarkup a) =>
a -> [Quadrilateral] -> m ()
annotTextMarkupSetQuadrilaterals a
popplerAnnot [Quadrilateral]
quadrilaterals = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr AnnotTextMarkup
popplerAnnot' <- a -> IO (Ptr AnnotTextMarkup)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerAnnot
    [Ptr Quadrilateral]
quadrilaterals' <- (Quadrilateral -> IO (Ptr Quadrilateral))
-> [Quadrilateral] -> IO [Ptr Quadrilateral]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM Quadrilateral -> IO (Ptr Quadrilateral)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr [Quadrilateral]
quadrilaterals
    Ptr (GArray (Ptr Quadrilateral))
quadrilaterals'' <- [Ptr Quadrilateral] -> IO (Ptr (GArray (Ptr Quadrilateral)))
forall a. Storable a => [a] -> IO (Ptr (GArray a))
packGArray [Ptr Quadrilateral]
quadrilaterals'
    Ptr AnnotTextMarkup -> Ptr (GArray (Ptr Quadrilateral)) -> IO ()
poppler_annot_text_markup_set_quadrilaterals Ptr AnnotTextMarkup
popplerAnnot' Ptr (GArray (Ptr Quadrilateral))
quadrilaterals''
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerAnnot
    (Quadrilateral -> IO ()) -> [Quadrilateral] -> IO ()
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ Quadrilateral -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr [Quadrilateral]
quadrilaterals
    Ptr (GArray (Ptr Quadrilateral)) -> IO ()
forall a. Ptr (GArray a) -> IO ()
unrefGArray Ptr (GArray (Ptr Quadrilateral))
quadrilaterals''
    () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(ENABLE_OVERLOADING)
data AnnotTextMarkupSetQuadrilateralsMethodInfo
instance (signature ~ ([Poppler.Quadrilateral.Quadrilateral] -> m ()), MonadIO m, IsAnnotTextMarkup a) => O.OverloadedMethod AnnotTextMarkupSetQuadrilateralsMethodInfo a signature where
    overloadedMethod = annotTextMarkupSetQuadrilaterals

instance O.OverloadedMethodInfo AnnotTextMarkupSetQuadrilateralsMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.Poppler.Objects.AnnotTextMarkup.annotTextMarkupSetQuadrilaterals",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Objects-AnnotTextMarkup.html#v:annotTextMarkupSetQuadrilaterals"
        })


#endif