#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.Poppler.Objects.AnnotMarkup
(
AnnotMarkup(..) ,
IsAnnotMarkup ,
toAnnotMarkup ,
noAnnotMarkup ,
#if ENABLE_OVERLOADING
AnnotMarkupGetDateMethodInfo ,
#endif
annotMarkupGetDate ,
#if ENABLE_OVERLOADING
AnnotMarkupGetExternalDataMethodInfo ,
#endif
annotMarkupGetExternalData ,
#if ENABLE_OVERLOADING
AnnotMarkupGetLabelMethodInfo ,
#endif
annotMarkupGetLabel ,
#if ENABLE_OVERLOADING
AnnotMarkupGetOpacityMethodInfo ,
#endif
annotMarkupGetOpacity ,
#if ENABLE_OVERLOADING
AnnotMarkupGetPopupIsOpenMethodInfo ,
#endif
annotMarkupGetPopupIsOpen ,
#if ENABLE_OVERLOADING
AnnotMarkupGetPopupRectangleMethodInfo ,
#endif
annotMarkupGetPopupRectangle ,
#if ENABLE_OVERLOADING
AnnotMarkupGetReplyToMethodInfo ,
#endif
annotMarkupGetReplyTo ,
#if ENABLE_OVERLOADING
AnnotMarkupGetSubjectMethodInfo ,
#endif
annotMarkupGetSubject ,
#if ENABLE_OVERLOADING
AnnotMarkupHasPopupMethodInfo ,
#endif
annotMarkupHasPopup ,
#if ENABLE_OVERLOADING
AnnotMarkupSetLabelMethodInfo ,
#endif
annotMarkupSetLabel ,
#if ENABLE_OVERLOADING
AnnotMarkupSetOpacityMethodInfo ,
#endif
annotMarkupSetOpacity ,
#if ENABLE_OVERLOADING
AnnotMarkupSetPopupMethodInfo ,
#endif
annotMarkupSetPopup ,
#if ENABLE_OVERLOADING
AnnotMarkupSetPopupIsOpenMethodInfo ,
#endif
annotMarkupSetPopupIsOpen ,
#if ENABLE_OVERLOADING
AnnotMarkupSetPopupRectangleMethodInfo ,
#endif
annotMarkupSetPopupRectangle ,
) 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.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
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.Text as T
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 GI.GLib.Structs.Date as GLib.Date
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Poppler.Enums as Poppler.Enums
import {-# SOURCE #-} qualified GI.Poppler.Objects.Annot as Poppler.Annot
import {-# SOURCE #-} qualified GI.Poppler.Structs.Rectangle as Poppler.Rectangle
newtype AnnotMarkup = AnnotMarkup (ManagedPtr AnnotMarkup)
foreign import ccall "poppler_annot_markup_get_type"
c_poppler_annot_markup_get_type :: IO GType
instance GObject AnnotMarkup where
gobjectType = c_poppler_annot_markup_get_type
class (GObject o, O.IsDescendantOf AnnotMarkup o) => IsAnnotMarkup o
instance (GObject o, O.IsDescendantOf AnnotMarkup o) => IsAnnotMarkup o
instance O.HasParentTypes AnnotMarkup
type instance O.ParentTypes AnnotMarkup = '[Poppler.Annot.Annot, GObject.Object.Object]
toAnnotMarkup :: (MonadIO m, IsAnnotMarkup o) => o -> m AnnotMarkup
toAnnotMarkup = liftIO . unsafeCastTo AnnotMarkup
noAnnotMarkup :: Maybe AnnotMarkup
noAnnotMarkup = Nothing
#if ENABLE_OVERLOADING
type family ResolveAnnotMarkupMethod (t :: Symbol) (o :: *) :: * where
ResolveAnnotMarkupMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveAnnotMarkupMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveAnnotMarkupMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveAnnotMarkupMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveAnnotMarkupMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveAnnotMarkupMethod "hasPopup" o = AnnotMarkupHasPopupMethodInfo
ResolveAnnotMarkupMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveAnnotMarkupMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveAnnotMarkupMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveAnnotMarkupMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveAnnotMarkupMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveAnnotMarkupMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveAnnotMarkupMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveAnnotMarkupMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveAnnotMarkupMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveAnnotMarkupMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveAnnotMarkupMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveAnnotMarkupMethod "getAnnotType" o = Poppler.Annot.AnnotGetAnnotTypeMethodInfo
ResolveAnnotMarkupMethod "getColor" o = Poppler.Annot.AnnotGetColorMethodInfo
ResolveAnnotMarkupMethod "getContents" o = Poppler.Annot.AnnotGetContentsMethodInfo
ResolveAnnotMarkupMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveAnnotMarkupMethod "getDate" o = AnnotMarkupGetDateMethodInfo
ResolveAnnotMarkupMethod "getExternalData" o = AnnotMarkupGetExternalDataMethodInfo
ResolveAnnotMarkupMethod "getFlags" o = Poppler.Annot.AnnotGetFlagsMethodInfo
ResolveAnnotMarkupMethod "getLabel" o = AnnotMarkupGetLabelMethodInfo
ResolveAnnotMarkupMethod "getModified" o = Poppler.Annot.AnnotGetModifiedMethodInfo
ResolveAnnotMarkupMethod "getName" o = Poppler.Annot.AnnotGetNameMethodInfo
ResolveAnnotMarkupMethod "getOpacity" o = AnnotMarkupGetOpacityMethodInfo
ResolveAnnotMarkupMethod "getPageIndex" o = Poppler.Annot.AnnotGetPageIndexMethodInfo
ResolveAnnotMarkupMethod "getPopupIsOpen" o = AnnotMarkupGetPopupIsOpenMethodInfo
ResolveAnnotMarkupMethod "getPopupRectangle" o = AnnotMarkupGetPopupRectangleMethodInfo
ResolveAnnotMarkupMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveAnnotMarkupMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveAnnotMarkupMethod "getRectangle" o = Poppler.Annot.AnnotGetRectangleMethodInfo
ResolveAnnotMarkupMethod "getReplyTo" o = AnnotMarkupGetReplyToMethodInfo
ResolveAnnotMarkupMethod "getSubject" o = AnnotMarkupGetSubjectMethodInfo
ResolveAnnotMarkupMethod "setColor" o = Poppler.Annot.AnnotSetColorMethodInfo
ResolveAnnotMarkupMethod "setContents" o = Poppler.Annot.AnnotSetContentsMethodInfo
ResolveAnnotMarkupMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveAnnotMarkupMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveAnnotMarkupMethod "setFlags" o = Poppler.Annot.AnnotSetFlagsMethodInfo
ResolveAnnotMarkupMethod "setLabel" o = AnnotMarkupSetLabelMethodInfo
ResolveAnnotMarkupMethod "setOpacity" o = AnnotMarkupSetOpacityMethodInfo
ResolveAnnotMarkupMethod "setPopup" o = AnnotMarkupSetPopupMethodInfo
ResolveAnnotMarkupMethod "setPopupIsOpen" o = AnnotMarkupSetPopupIsOpenMethodInfo
ResolveAnnotMarkupMethod "setPopupRectangle" o = AnnotMarkupSetPopupRectangleMethodInfo
ResolveAnnotMarkupMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveAnnotMarkupMethod "setRectangle" o = Poppler.Annot.AnnotSetRectangleMethodInfo
ResolveAnnotMarkupMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveAnnotMarkupMethod t AnnotMarkup, O.MethodInfo info AnnotMarkup p) => OL.IsLabel t (AnnotMarkup -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList AnnotMarkup
type instance O.AttributeList AnnotMarkup = AnnotMarkupAttributeList
type AnnotMarkupAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
#endif
#if ENABLE_OVERLOADING
type instance O.SignalList AnnotMarkup = AnnotMarkupSignalList
type AnnotMarkupSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "poppler_annot_markup_get_date" poppler_annot_markup_get_date ::
Ptr AnnotMarkup ->
IO (Ptr GLib.Date.Date)
annotMarkupGetDate ::
(B.CallStack.HasCallStack, MonadIO m, IsAnnotMarkup a) =>
a
-> m GLib.Date.Date
annotMarkupGetDate popplerAnnot = liftIO $ do
popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot
result <- poppler_annot_markup_get_date popplerAnnot'
checkUnexpectedReturnNULL "annotMarkupGetDate" result
result' <- (wrapBoxed GLib.Date.Date) result
touchManagedPtr popplerAnnot
return result'
#if ENABLE_OVERLOADING
data AnnotMarkupGetDateMethodInfo
instance (signature ~ (m GLib.Date.Date), MonadIO m, IsAnnotMarkup a) => O.MethodInfo AnnotMarkupGetDateMethodInfo a signature where
overloadedMethod _ = annotMarkupGetDate
#endif
foreign import ccall "poppler_annot_markup_get_external_data" poppler_annot_markup_get_external_data ::
Ptr AnnotMarkup ->
IO CUInt
annotMarkupGetExternalData ::
(B.CallStack.HasCallStack, MonadIO m, IsAnnotMarkup a) =>
a
-> m Poppler.Enums.AnnotExternalDataType
annotMarkupGetExternalData popplerAnnot = liftIO $ do
popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot
result <- poppler_annot_markup_get_external_data popplerAnnot'
let result' = (toEnum . fromIntegral) result
touchManagedPtr popplerAnnot
return result'
#if ENABLE_OVERLOADING
data AnnotMarkupGetExternalDataMethodInfo
instance (signature ~ (m Poppler.Enums.AnnotExternalDataType), MonadIO m, IsAnnotMarkup a) => O.MethodInfo AnnotMarkupGetExternalDataMethodInfo a signature where
overloadedMethod _ = annotMarkupGetExternalData
#endif
foreign import ccall "poppler_annot_markup_get_label" poppler_annot_markup_get_label ::
Ptr AnnotMarkup ->
IO CString
annotMarkupGetLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsAnnotMarkup a) =>
a
-> m T.Text
annotMarkupGetLabel popplerAnnot = liftIO $ do
popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot
result <- poppler_annot_markup_get_label popplerAnnot'
checkUnexpectedReturnNULL "annotMarkupGetLabel" result
result' <- cstringToText result
freeMem result
touchManagedPtr popplerAnnot
return result'
#if ENABLE_OVERLOADING
data AnnotMarkupGetLabelMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsAnnotMarkup a) => O.MethodInfo AnnotMarkupGetLabelMethodInfo a signature where
overloadedMethod _ = annotMarkupGetLabel
#endif
foreign import ccall "poppler_annot_markup_get_opacity" poppler_annot_markup_get_opacity ::
Ptr AnnotMarkup ->
IO CDouble
annotMarkupGetOpacity ::
(B.CallStack.HasCallStack, MonadIO m, IsAnnotMarkup a) =>
a
-> m Double
annotMarkupGetOpacity popplerAnnot = liftIO $ do
popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot
result <- poppler_annot_markup_get_opacity popplerAnnot'
let result' = realToFrac result
touchManagedPtr popplerAnnot
return result'
#if ENABLE_OVERLOADING
data AnnotMarkupGetOpacityMethodInfo
instance (signature ~ (m Double), MonadIO m, IsAnnotMarkup a) => O.MethodInfo AnnotMarkupGetOpacityMethodInfo a signature where
overloadedMethod _ = annotMarkupGetOpacity
#endif
foreign import ccall "poppler_annot_markup_get_popup_is_open" poppler_annot_markup_get_popup_is_open ::
Ptr AnnotMarkup ->
IO CInt
annotMarkupGetPopupIsOpen ::
(B.CallStack.HasCallStack, MonadIO m, IsAnnotMarkup a) =>
a
-> m Bool
annotMarkupGetPopupIsOpen popplerAnnot = liftIO $ do
popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot
result <- poppler_annot_markup_get_popup_is_open popplerAnnot'
let result' = (/= 0) result
touchManagedPtr popplerAnnot
return result'
#if ENABLE_OVERLOADING
data AnnotMarkupGetPopupIsOpenMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsAnnotMarkup a) => O.MethodInfo AnnotMarkupGetPopupIsOpenMethodInfo a signature where
overloadedMethod _ = annotMarkupGetPopupIsOpen
#endif
foreign import ccall "poppler_annot_markup_get_popup_rectangle" poppler_annot_markup_get_popup_rectangle ::
Ptr AnnotMarkup ->
Ptr Poppler.Rectangle.Rectangle ->
IO CInt
annotMarkupGetPopupRectangle ::
(B.CallStack.HasCallStack, MonadIO m, IsAnnotMarkup a) =>
a
-> m ((Bool, Poppler.Rectangle.Rectangle))
annotMarkupGetPopupRectangle popplerAnnot = liftIO $ do
popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot
popplerRect <- callocBoxedBytes 32 :: IO (Ptr Poppler.Rectangle.Rectangle)
result <- poppler_annot_markup_get_popup_rectangle popplerAnnot' popplerRect
let result' = (/= 0) result
popplerRect' <- (wrapBoxed Poppler.Rectangle.Rectangle) popplerRect
touchManagedPtr popplerAnnot
return (result', popplerRect')
#if ENABLE_OVERLOADING
data AnnotMarkupGetPopupRectangleMethodInfo
instance (signature ~ (m ((Bool, Poppler.Rectangle.Rectangle))), MonadIO m, IsAnnotMarkup a) => O.MethodInfo AnnotMarkupGetPopupRectangleMethodInfo a signature where
overloadedMethod _ = annotMarkupGetPopupRectangle
#endif
foreign import ccall "poppler_annot_markup_get_reply_to" poppler_annot_markup_get_reply_to ::
Ptr AnnotMarkup ->
IO CUInt
annotMarkupGetReplyTo ::
(B.CallStack.HasCallStack, MonadIO m, IsAnnotMarkup a) =>
a
-> m Poppler.Enums.AnnotMarkupReplyType
annotMarkupGetReplyTo popplerAnnot = liftIO $ do
popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot
result <- poppler_annot_markup_get_reply_to popplerAnnot'
let result' = (toEnum . fromIntegral) result
touchManagedPtr popplerAnnot
return result'
#if ENABLE_OVERLOADING
data AnnotMarkupGetReplyToMethodInfo
instance (signature ~ (m Poppler.Enums.AnnotMarkupReplyType), MonadIO m, IsAnnotMarkup a) => O.MethodInfo AnnotMarkupGetReplyToMethodInfo a signature where
overloadedMethod _ = annotMarkupGetReplyTo
#endif
foreign import ccall "poppler_annot_markup_get_subject" poppler_annot_markup_get_subject ::
Ptr AnnotMarkup ->
IO CString
annotMarkupGetSubject ::
(B.CallStack.HasCallStack, MonadIO m, IsAnnotMarkup a) =>
a
-> m T.Text
annotMarkupGetSubject popplerAnnot = liftIO $ do
popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot
result <- poppler_annot_markup_get_subject popplerAnnot'
checkUnexpectedReturnNULL "annotMarkupGetSubject" result
result' <- cstringToText result
freeMem result
touchManagedPtr popplerAnnot
return result'
#if ENABLE_OVERLOADING
data AnnotMarkupGetSubjectMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsAnnotMarkup a) => O.MethodInfo AnnotMarkupGetSubjectMethodInfo a signature where
overloadedMethod _ = annotMarkupGetSubject
#endif
foreign import ccall "poppler_annot_markup_has_popup" poppler_annot_markup_has_popup ::
Ptr AnnotMarkup ->
IO CInt
annotMarkupHasPopup ::
(B.CallStack.HasCallStack, MonadIO m, IsAnnotMarkup a) =>
a
-> m Bool
annotMarkupHasPopup popplerAnnot = liftIO $ do
popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot
result <- poppler_annot_markup_has_popup popplerAnnot'
let result' = (/= 0) result
touchManagedPtr popplerAnnot
return result'
#if ENABLE_OVERLOADING
data AnnotMarkupHasPopupMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsAnnotMarkup a) => O.MethodInfo AnnotMarkupHasPopupMethodInfo a signature where
overloadedMethod _ = annotMarkupHasPopup
#endif
foreign import ccall "poppler_annot_markup_set_label" poppler_annot_markup_set_label ::
Ptr AnnotMarkup ->
CString ->
IO ()
annotMarkupSetLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsAnnotMarkup a) =>
a
-> Maybe (T.Text)
-> m ()
annotMarkupSetLabel popplerAnnot label = liftIO $ do
popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot
maybeLabel <- case label of
Nothing -> return nullPtr
Just jLabel -> do
jLabel' <- textToCString jLabel
return jLabel'
poppler_annot_markup_set_label popplerAnnot' maybeLabel
touchManagedPtr popplerAnnot
freeMem maybeLabel
return ()
#if ENABLE_OVERLOADING
data AnnotMarkupSetLabelMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsAnnotMarkup a) => O.MethodInfo AnnotMarkupSetLabelMethodInfo a signature where
overloadedMethod _ = annotMarkupSetLabel
#endif
foreign import ccall "poppler_annot_markup_set_opacity" poppler_annot_markup_set_opacity ::
Ptr AnnotMarkup ->
CDouble ->
IO ()
annotMarkupSetOpacity ::
(B.CallStack.HasCallStack, MonadIO m, IsAnnotMarkup a) =>
a
-> Double
-> m ()
annotMarkupSetOpacity popplerAnnot opacity = liftIO $ do
popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot
let opacity' = realToFrac opacity
poppler_annot_markup_set_opacity popplerAnnot' opacity'
touchManagedPtr popplerAnnot
return ()
#if ENABLE_OVERLOADING
data AnnotMarkupSetOpacityMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsAnnotMarkup a) => O.MethodInfo AnnotMarkupSetOpacityMethodInfo a signature where
overloadedMethod _ = annotMarkupSetOpacity
#endif
foreign import ccall "poppler_annot_markup_set_popup" poppler_annot_markup_set_popup ::
Ptr AnnotMarkup ->
Ptr Poppler.Rectangle.Rectangle ->
IO ()
annotMarkupSetPopup ::
(B.CallStack.HasCallStack, MonadIO m, IsAnnotMarkup a) =>
a
-> Poppler.Rectangle.Rectangle
-> m ()
annotMarkupSetPopup popplerAnnot popupRect = liftIO $ do
popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot
popupRect' <- unsafeManagedPtrGetPtr popupRect
poppler_annot_markup_set_popup popplerAnnot' popupRect'
touchManagedPtr popplerAnnot
touchManagedPtr popupRect
return ()
#if ENABLE_OVERLOADING
data AnnotMarkupSetPopupMethodInfo
instance (signature ~ (Poppler.Rectangle.Rectangle -> m ()), MonadIO m, IsAnnotMarkup a) => O.MethodInfo AnnotMarkupSetPopupMethodInfo a signature where
overloadedMethod _ = annotMarkupSetPopup
#endif
foreign import ccall "poppler_annot_markup_set_popup_is_open" poppler_annot_markup_set_popup_is_open ::
Ptr AnnotMarkup ->
CInt ->
IO ()
annotMarkupSetPopupIsOpen ::
(B.CallStack.HasCallStack, MonadIO m, IsAnnotMarkup a) =>
a
-> Bool
-> m ()
annotMarkupSetPopupIsOpen popplerAnnot isOpen = liftIO $ do
popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot
let isOpen' = (fromIntegral . fromEnum) isOpen
poppler_annot_markup_set_popup_is_open popplerAnnot' isOpen'
touchManagedPtr popplerAnnot
return ()
#if ENABLE_OVERLOADING
data AnnotMarkupSetPopupIsOpenMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsAnnotMarkup a) => O.MethodInfo AnnotMarkupSetPopupIsOpenMethodInfo a signature where
overloadedMethod _ = annotMarkupSetPopupIsOpen
#endif
foreign import ccall "poppler_annot_markup_set_popup_rectangle" poppler_annot_markup_set_popup_rectangle ::
Ptr AnnotMarkup ->
Ptr Poppler.Rectangle.Rectangle ->
IO ()
annotMarkupSetPopupRectangle ::
(B.CallStack.HasCallStack, MonadIO m, IsAnnotMarkup a) =>
a
-> Poppler.Rectangle.Rectangle
-> m ()
annotMarkupSetPopupRectangle popplerAnnot popplerRect = liftIO $ do
popplerAnnot' <- unsafeManagedPtrCastPtr popplerAnnot
popplerRect' <- unsafeManagedPtrGetPtr popplerRect
poppler_annot_markup_set_popup_rectangle popplerAnnot' popplerRect'
touchManagedPtr popplerAnnot
touchManagedPtr popplerRect
return ()
#if ENABLE_OVERLOADING
data AnnotMarkupSetPopupRectangleMethodInfo
instance (signature ~ (Poppler.Rectangle.Rectangle -> m ()), MonadIO m, IsAnnotMarkup a) => O.MethodInfo AnnotMarkupSetPopupRectangleMethodInfo a signature where
overloadedMethod _ = annotMarkupSetPopupRectangle
#endif