{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Poppler.Objects.AnnotSquare
(
AnnotSquare(..) ,
IsAnnotSquare ,
toAnnotSquare ,
#if defined(ENABLE_OVERLOADING)
ResolveAnnotSquareMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
AnnotSquareGetInteriorColorMethodInfo ,
#endif
annotSquareGetInteriorColor ,
annotSquareNew ,
#if defined(ENABLE_OVERLOADING)
AnnotSquareSetInteriorColorMethodInfo ,
#endif
annotSquareSetInteriorColor ,
) 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.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 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.Color as Poppler.Color
import {-# SOURCE #-} qualified GI.Poppler.Structs.Rectangle as Poppler.Rectangle
newtype AnnotSquare = AnnotSquare (SP.ManagedPtr AnnotSquare)
deriving (AnnotSquare -> AnnotSquare -> Bool
(AnnotSquare -> AnnotSquare -> Bool)
-> (AnnotSquare -> AnnotSquare -> Bool) -> Eq AnnotSquare
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AnnotSquare -> AnnotSquare -> Bool
== :: AnnotSquare -> AnnotSquare -> Bool
$c/= :: AnnotSquare -> AnnotSquare -> Bool
/= :: AnnotSquare -> AnnotSquare -> Bool
Eq)
instance SP.ManagedPtrNewtype AnnotSquare where
toManagedPtr :: AnnotSquare -> ManagedPtr AnnotSquare
toManagedPtr (AnnotSquare ManagedPtr AnnotSquare
p) = ManagedPtr AnnotSquare
p
foreign import ccall "poppler_annot_square_get_type"
c_poppler_annot_square_get_type :: IO B.Types.GType
instance B.Types.TypedObject AnnotSquare where
glibType :: IO GType
glibType = IO GType
c_poppler_annot_square_get_type
instance B.Types.GObject AnnotSquare
class (SP.GObject o, O.IsDescendantOf AnnotSquare o) => IsAnnotSquare o
instance (SP.GObject o, O.IsDescendantOf AnnotSquare o) => IsAnnotSquare o
instance O.HasParentTypes AnnotSquare
type instance O.ParentTypes AnnotSquare = '[Poppler.AnnotMarkup.AnnotMarkup, Poppler.Annot.Annot, GObject.Object.Object]
toAnnotSquare :: (MIO.MonadIO m, IsAnnotSquare o) => o -> m AnnotSquare
toAnnotSquare :: forall (m :: * -> *) o.
(MonadIO m, IsAnnotSquare o) =>
o -> m AnnotSquare
toAnnotSquare = IO AnnotSquare -> m AnnotSquare
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO AnnotSquare -> m AnnotSquare)
-> (o -> IO AnnotSquare) -> o -> m AnnotSquare
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr AnnotSquare -> AnnotSquare) -> o -> IO AnnotSquare
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr AnnotSquare -> AnnotSquare
AnnotSquare
instance B.GValue.IsGValue (Maybe AnnotSquare) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_poppler_annot_square_get_type
gvalueSet_ :: Ptr GValue -> Maybe AnnotSquare -> IO ()
gvalueSet_ Ptr GValue
gv Maybe AnnotSquare
P.Nothing = Ptr GValue -> Ptr AnnotSquare -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr AnnotSquare
forall a. Ptr a
FP.nullPtr :: FP.Ptr AnnotSquare)
gvalueSet_ Ptr GValue
gv (P.Just AnnotSquare
obj) = AnnotSquare -> (Ptr AnnotSquare -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr AnnotSquare
obj (Ptr GValue -> Ptr AnnotSquare -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe AnnotSquare)
gvalueGet_ Ptr GValue
gv = do
Ptr AnnotSquare
ptr <- Ptr GValue -> IO (Ptr AnnotSquare)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr AnnotSquare)
if Ptr AnnotSquare
ptr Ptr AnnotSquare -> Ptr AnnotSquare -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr AnnotSquare
forall a. Ptr a
FP.nullPtr
then AnnotSquare -> Maybe AnnotSquare
forall a. a -> Maybe a
P.Just (AnnotSquare -> Maybe AnnotSquare)
-> IO AnnotSquare -> IO (Maybe AnnotSquare)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr AnnotSquare -> AnnotSquare)
-> Ptr AnnotSquare -> IO AnnotSquare
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr AnnotSquare -> AnnotSquare
AnnotSquare Ptr AnnotSquare
ptr
else Maybe AnnotSquare -> IO (Maybe AnnotSquare)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe AnnotSquare
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveAnnotSquareMethod (t :: Symbol) (o :: *) :: * where
ResolveAnnotSquareMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveAnnotSquareMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveAnnotSquareMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveAnnotSquareMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveAnnotSquareMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveAnnotSquareMethod "hasPopup" o = Poppler.AnnotMarkup.AnnotMarkupHasPopupMethodInfo
ResolveAnnotSquareMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveAnnotSquareMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveAnnotSquareMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveAnnotSquareMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveAnnotSquareMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveAnnotSquareMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveAnnotSquareMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveAnnotSquareMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveAnnotSquareMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveAnnotSquareMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveAnnotSquareMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveAnnotSquareMethod "getAnnotType" o = Poppler.Annot.AnnotGetAnnotTypeMethodInfo
ResolveAnnotSquareMethod "getColor" o = Poppler.Annot.AnnotGetColorMethodInfo
ResolveAnnotSquareMethod "getContents" o = Poppler.Annot.AnnotGetContentsMethodInfo
ResolveAnnotSquareMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveAnnotSquareMethod "getDate" o = Poppler.AnnotMarkup.AnnotMarkupGetDateMethodInfo
ResolveAnnotSquareMethod "getExternalData" o = Poppler.AnnotMarkup.AnnotMarkupGetExternalDataMethodInfo
ResolveAnnotSquareMethod "getFlags" o = Poppler.Annot.AnnotGetFlagsMethodInfo
ResolveAnnotSquareMethod "getInteriorColor" o = AnnotSquareGetInteriorColorMethodInfo
ResolveAnnotSquareMethod "getLabel" o = Poppler.AnnotMarkup.AnnotMarkupGetLabelMethodInfo
ResolveAnnotSquareMethod "getModified" o = Poppler.Annot.AnnotGetModifiedMethodInfo
ResolveAnnotSquareMethod "getName" o = Poppler.Annot.AnnotGetNameMethodInfo
ResolveAnnotSquareMethod "getOpacity" o = Poppler.AnnotMarkup.AnnotMarkupGetOpacityMethodInfo
ResolveAnnotSquareMethod "getPageIndex" o = Poppler.Annot.AnnotGetPageIndexMethodInfo
ResolveAnnotSquareMethod "getPopupIsOpen" o = Poppler.AnnotMarkup.AnnotMarkupGetPopupIsOpenMethodInfo
ResolveAnnotSquareMethod "getPopupRectangle" o = Poppler.AnnotMarkup.AnnotMarkupGetPopupRectangleMethodInfo
ResolveAnnotSquareMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveAnnotSquareMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveAnnotSquareMethod "getRectangle" o = Poppler.Annot.AnnotGetRectangleMethodInfo
ResolveAnnotSquareMethod "getReplyTo" o = Poppler.AnnotMarkup.AnnotMarkupGetReplyToMethodInfo
ResolveAnnotSquareMethod "getSubject" o = Poppler.AnnotMarkup.AnnotMarkupGetSubjectMethodInfo
ResolveAnnotSquareMethod "setColor" o = Poppler.Annot.AnnotSetColorMethodInfo
ResolveAnnotSquareMethod "setContents" o = Poppler.Annot.AnnotSetContentsMethodInfo
ResolveAnnotSquareMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveAnnotSquareMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveAnnotSquareMethod "setFlags" o = Poppler.Annot.AnnotSetFlagsMethodInfo
ResolveAnnotSquareMethod "setInteriorColor" o = AnnotSquareSetInteriorColorMethodInfo
ResolveAnnotSquareMethod "setLabel" o = Poppler.AnnotMarkup.AnnotMarkupSetLabelMethodInfo
ResolveAnnotSquareMethod "setOpacity" o = Poppler.AnnotMarkup.AnnotMarkupSetOpacityMethodInfo
ResolveAnnotSquareMethod "setPopup" o = Poppler.AnnotMarkup.AnnotMarkupSetPopupMethodInfo
ResolveAnnotSquareMethod "setPopupIsOpen" o = Poppler.AnnotMarkup.AnnotMarkupSetPopupIsOpenMethodInfo
ResolveAnnotSquareMethod "setPopupRectangle" o = Poppler.AnnotMarkup.AnnotMarkupSetPopupRectangleMethodInfo
ResolveAnnotSquareMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveAnnotSquareMethod "setRectangle" o = Poppler.Annot.AnnotSetRectangleMethodInfo
ResolveAnnotSquareMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveAnnotSquareMethod t AnnotSquare, O.OverloadedMethod info AnnotSquare p) => OL.IsLabel t (AnnotSquare -> 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 ~ ResolveAnnotSquareMethod t AnnotSquare, O.OverloadedMethod info AnnotSquare p, R.HasField t AnnotSquare p) => R.HasField t AnnotSquare p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveAnnotSquareMethod t AnnotSquare, O.OverloadedMethodInfo info AnnotSquare) => OL.IsLabel t (O.MethodProxy info AnnotSquare) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList AnnotSquare
type instance O.AttributeList AnnotSquare = AnnotSquareAttributeList
type AnnotSquareAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList AnnotSquare = AnnotSquareSignalList
type AnnotSquareSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "poppler_annot_square_new" poppler_annot_square_new ::
Ptr Poppler.Document.Document ->
Ptr Poppler.Rectangle.Rectangle ->
IO (Ptr AnnotSquare)
annotSquareNew ::
(B.CallStack.HasCallStack, MonadIO m, Poppler.Document.IsDocument a) =>
a
-> Poppler.Rectangle.Rectangle
-> m AnnotSquare
annotSquareNew :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> Rectangle -> m AnnotSquare
annotSquareNew a
doc Rectangle
rect = IO AnnotSquare -> m AnnotSquare
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO AnnotSquare -> m AnnotSquare)
-> IO AnnotSquare -> m AnnotSquare
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 AnnotSquare
result <- Ptr Document -> Ptr Rectangle -> IO (Ptr AnnotSquare)
poppler_annot_square_new Ptr Document
doc' Ptr Rectangle
rect'
Text -> Ptr AnnotSquare -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"annotSquareNew" Ptr AnnotSquare
result
AnnotSquare
result' <- ((ManagedPtr AnnotSquare -> AnnotSquare)
-> Ptr AnnotSquare -> IO AnnotSquare
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr AnnotSquare -> AnnotSquare
AnnotSquare) Ptr AnnotSquare
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
doc
Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
rect
AnnotSquare -> IO AnnotSquare
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return AnnotSquare
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "poppler_annot_square_get_interior_color" poppler_annot_square_get_interior_color ::
Ptr AnnotSquare ->
IO (Ptr Poppler.Color.Color)
annotSquareGetInteriorColor ::
(B.CallStack.HasCallStack, MonadIO m, IsAnnotSquare a) =>
a
-> m Poppler.Color.Color
annotSquareGetInteriorColor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAnnotSquare a) =>
a -> m Color
annotSquareGetInteriorColor a
popplerAnnot = IO Color -> m Color
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Color -> m Color) -> IO Color -> m Color
forall a b. (a -> b) -> a -> b
$ do
Ptr AnnotSquare
popplerAnnot' <- a -> IO (Ptr AnnotSquare)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerAnnot
Ptr Color
result <- Ptr AnnotSquare -> IO (Ptr Color)
poppler_annot_square_get_interior_color Ptr AnnotSquare
popplerAnnot'
Text -> Ptr Color -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"annotSquareGetInteriorColor" Ptr Color
result
Color
result' <- ((ManagedPtr Color -> Color) -> Ptr Color -> IO Color
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Color -> Color
Poppler.Color.Color) Ptr Color
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerAnnot
Color -> IO Color
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Color
result'
#if defined(ENABLE_OVERLOADING)
data AnnotSquareGetInteriorColorMethodInfo
instance (signature ~ (m Poppler.Color.Color), MonadIO m, IsAnnotSquare a) => O.OverloadedMethod AnnotSquareGetInteriorColorMethodInfo a signature where
overloadedMethod = annotSquareGetInteriorColor
instance O.OverloadedMethodInfo AnnotSquareGetInteriorColorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.AnnotSquare.annotSquareGetInteriorColor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-AnnotSquare.html#v:annotSquareGetInteriorColor"
})
#endif
foreign import ccall "poppler_annot_square_set_interior_color" poppler_annot_square_set_interior_color ::
Ptr AnnotSquare ->
Ptr Poppler.Color.Color ->
IO ()
annotSquareSetInteriorColor ::
(B.CallStack.HasCallStack, MonadIO m, IsAnnotSquare a) =>
a
-> Maybe (Poppler.Color.Color)
-> m ()
annotSquareSetInteriorColor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAnnotSquare a) =>
a -> Maybe Color -> m ()
annotSquareSetInteriorColor a
popplerAnnot Maybe Color
popplerColor = 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 AnnotSquare
popplerAnnot' <- a -> IO (Ptr AnnotSquare)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerAnnot
Ptr Color
maybePopplerColor <- case Maybe Color
popplerColor of
Maybe Color
Nothing -> Ptr Color -> IO (Ptr Color)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Color
forall a. Ptr a
nullPtr
Just Color
jPopplerColor -> do
Ptr Color
jPopplerColor' <- Color -> IO (Ptr Color)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Color
jPopplerColor
Ptr Color -> IO (Ptr Color)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Color
jPopplerColor'
Ptr AnnotSquare -> Ptr Color -> IO ()
poppler_annot_square_set_interior_color Ptr AnnotSquare
popplerAnnot' Ptr Color
maybePopplerColor
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerAnnot
Maybe Color -> (Color -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe Color
popplerColor Color -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AnnotSquareSetInteriorColorMethodInfo
instance (signature ~ (Maybe (Poppler.Color.Color) -> m ()), MonadIO m, IsAnnotSquare a) => O.OverloadedMethod AnnotSquareSetInteriorColorMethodInfo a signature where
overloadedMethod = annotSquareSetInteriorColor
instance O.OverloadedMethodInfo AnnotSquareSetInteriorColorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.AnnotSquare.annotSquareSetInteriorColor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-AnnotSquare.html#v:annotSquareSetInteriorColor"
})
#endif