module GI.Poppler.Objects.AnnotMarkup
(
AnnotMarkup(..) ,
IsAnnotMarkup ,
toAnnotMarkup ,
noAnnotMarkup ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
AnnotMarkupGetDateMethodInfo ,
#endif
annotMarkupGetDate ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
AnnotMarkupGetExternalDataMethodInfo ,
#endif
annotMarkupGetExternalData ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
AnnotMarkupGetLabelMethodInfo ,
#endif
annotMarkupGetLabel ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
AnnotMarkupGetOpacityMethodInfo ,
#endif
annotMarkupGetOpacity ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
AnnotMarkupGetPopupIsOpenMethodInfo ,
#endif
annotMarkupGetPopupIsOpen ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
AnnotMarkupGetPopupRectangleMethodInfo ,
#endif
annotMarkupGetPopupRectangle ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
AnnotMarkupGetReplyToMethodInfo ,
#endif
annotMarkupGetReplyTo ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
AnnotMarkupGetSubjectMethodInfo ,
#endif
annotMarkupGetSubject ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
AnnotMarkupHasPopupMethodInfo ,
#endif
annotMarkupHasPopup ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
AnnotMarkupSetLabelMethodInfo ,
#endif
annotMarkupSetLabel ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
AnnotMarkupSetOpacityMethodInfo ,
#endif
annotMarkupSetOpacity ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
AnnotMarkupSetPopupMethodInfo ,
#endif
annotMarkupSetPopup ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
AnnotMarkupSetPopupIsOpenMethodInfo ,
#endif
annotMarkupSetPopupIsOpen ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
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 GI.GLib.Structs.Date as GLib.Date
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Poppler.Enums as Poppler.Enums
import qualified GI.Poppler.Objects.Annot as Poppler.Annot
import 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 => IsAnnotMarkup o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError AnnotMarkup a) =>
IsAnnotMarkup a
#endif
instance IsAnnotMarkup AnnotMarkup
instance Poppler.Annot.IsAnnot AnnotMarkup
instance GObject.Object.IsObject AnnotMarkup
toAnnotMarkup :: (MonadIO m, IsAnnotMarkup o) => o -> m AnnotMarkup
toAnnotMarkup = liftIO . unsafeCastTo AnnotMarkup
noAnnotMarkup :: Maybe AnnotMarkup
noAnnotMarkup = Nothing
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 "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 "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveAnnotMarkupMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
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 "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) => O.IsLabelProxy t (AnnotMarkup -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveAnnotMarkupMethod t AnnotMarkup, O.MethodInfo info AnnotMarkup p) => O.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
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
instance O.HasAttributeList AnnotMarkup
type instance O.AttributeList AnnotMarkup = AnnotMarkupAttributeList
type AnnotMarkupAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data AnnotMarkupSetPopupRectangleMethodInfo
instance (signature ~ (Poppler.Rectangle.Rectangle -> m ()), MonadIO m, IsAnnotMarkup a) => O.MethodInfo AnnotMarkupSetPopupRectangleMethodInfo a signature where
overloadedMethod _ = annotMarkupSetPopupRectangle
#endif