gi-poppler-0.0.34.14: GI/Poppler/Objects/AnnotSquare.hs
{- |
Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-}
module GI.Poppler.Objects.AnnotSquare
(
-- * Exported types
AnnotSquare(..) ,
AnnotSquareK ,
toAnnotSquare ,
noAnnotSquare ,
-- * Methods
-- ** annotSquareGetInteriorColor
AnnotSquareGetInteriorColorMethodInfo ,
annotSquareGetInteriorColor ,
-- ** annotSquareNew
annotSquareNew ,
-- ** annotSquareSetInteriorColor
AnnotSquareSetInteriorColorMethodInfo ,
annotSquareSetInteriorColor ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Poppler.Types
import GI.Poppler.Callbacks
import qualified GI.GObject as GObject
newtype AnnotSquare = AnnotSquare (ForeignPtr AnnotSquare)
foreign import ccall "poppler_annot_square_get_type"
c_poppler_annot_square_get_type :: IO GType
type instance ParentTypes AnnotSquare = AnnotSquareParentTypes
type AnnotSquareParentTypes = '[AnnotMarkup, Annot, GObject.Object]
instance GObject AnnotSquare where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_poppler_annot_square_get_type
class GObject o => AnnotSquareK o
instance (GObject o, IsDescendantOf AnnotSquare o) => AnnotSquareK o
toAnnotSquare :: AnnotSquareK o => o -> IO AnnotSquare
toAnnotSquare = unsafeCastTo AnnotSquare
noAnnotSquare :: Maybe AnnotSquare
noAnnotSquare = Nothing
type family ResolveAnnotSquareMethod (t :: Symbol) (o :: *) :: * where
ResolveAnnotSquareMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
ResolveAnnotSquareMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
ResolveAnnotSquareMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
ResolveAnnotSquareMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
ResolveAnnotSquareMethod "hasPopup" o = AnnotMarkupHasPopupMethodInfo
ResolveAnnotSquareMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
ResolveAnnotSquareMethod "notify" o = GObject.ObjectNotifyMethodInfo
ResolveAnnotSquareMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
ResolveAnnotSquareMethod "ref" o = GObject.ObjectRefMethodInfo
ResolveAnnotSquareMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
ResolveAnnotSquareMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
ResolveAnnotSquareMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
ResolveAnnotSquareMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
ResolveAnnotSquareMethod "stealData" o = GObject.ObjectStealDataMethodInfo
ResolveAnnotSquareMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
ResolveAnnotSquareMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
ResolveAnnotSquareMethod "unref" o = GObject.ObjectUnrefMethodInfo
ResolveAnnotSquareMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
ResolveAnnotSquareMethod "getAnnotType" o = AnnotGetAnnotTypeMethodInfo
ResolveAnnotSquareMethod "getColor" o = AnnotGetColorMethodInfo
ResolveAnnotSquareMethod "getContents" o = AnnotGetContentsMethodInfo
ResolveAnnotSquareMethod "getData" o = GObject.ObjectGetDataMethodInfo
ResolveAnnotSquareMethod "getDate" o = AnnotMarkupGetDateMethodInfo
ResolveAnnotSquareMethod "getExternalData" o = AnnotMarkupGetExternalDataMethodInfo
ResolveAnnotSquareMethod "getFlags" o = AnnotGetFlagsMethodInfo
ResolveAnnotSquareMethod "getInteriorColor" o = AnnotSquareGetInteriorColorMethodInfo
ResolveAnnotSquareMethod "getLabel" o = AnnotMarkupGetLabelMethodInfo
ResolveAnnotSquareMethod "getModified" o = AnnotGetModifiedMethodInfo
ResolveAnnotSquareMethod "getName" o = AnnotGetNameMethodInfo
ResolveAnnotSquareMethod "getOpacity" o = AnnotMarkupGetOpacityMethodInfo
ResolveAnnotSquareMethod "getPageIndex" o = AnnotGetPageIndexMethodInfo
ResolveAnnotSquareMethod "getPopupIsOpen" o = AnnotMarkupGetPopupIsOpenMethodInfo
ResolveAnnotSquareMethod "getPopupRectangle" o = AnnotMarkupGetPopupRectangleMethodInfo
ResolveAnnotSquareMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
ResolveAnnotSquareMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
ResolveAnnotSquareMethod "getRectangle" o = AnnotGetRectangleMethodInfo
ResolveAnnotSquareMethod "getReplyTo" o = AnnotMarkupGetReplyToMethodInfo
ResolveAnnotSquareMethod "getSubject" o = AnnotMarkupGetSubjectMethodInfo
ResolveAnnotSquareMethod "setColor" o = AnnotSetColorMethodInfo
ResolveAnnotSquareMethod "setContents" o = AnnotSetContentsMethodInfo
ResolveAnnotSquareMethod "setData" o = GObject.ObjectSetDataMethodInfo
ResolveAnnotSquareMethod "setFlags" o = AnnotSetFlagsMethodInfo
ResolveAnnotSquareMethod "setInteriorColor" o = AnnotSquareSetInteriorColorMethodInfo
ResolveAnnotSquareMethod "setLabel" o = AnnotMarkupSetLabelMethodInfo
ResolveAnnotSquareMethod "setOpacity" o = AnnotMarkupSetOpacityMethodInfo
ResolveAnnotSquareMethod "setPopup" o = AnnotMarkupSetPopupMethodInfo
ResolveAnnotSquareMethod "setPopupIsOpen" o = AnnotMarkupSetPopupIsOpenMethodInfo
ResolveAnnotSquareMethod "setPopupRectangle" o = AnnotMarkupSetPopupRectangleMethodInfo
ResolveAnnotSquareMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
ResolveAnnotSquareMethod "setRectangle" o = AnnotSetRectangleMethodInfo
ResolveAnnotSquareMethod l o = MethodResolutionFailed l o
instance (info ~ ResolveAnnotSquareMethod t AnnotSquare, MethodInfo info AnnotSquare p) => IsLabelProxy t (AnnotSquare -> p) where
fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveAnnotSquareMethod t AnnotSquare, MethodInfo info AnnotSquare p) => IsLabel t (AnnotSquare -> p) where
fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
#endif
type instance AttributeList AnnotSquare = AnnotSquareAttributeList
type AnnotSquareAttributeList = ('[ ] :: [(Symbol, *)])
type instance SignalList AnnotSquare = AnnotSquareSignalList
type AnnotSquareSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])
-- method AnnotSquare::new
-- method type : Constructor
-- Args : [Arg {argCName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TInterface "Poppler" "AnnotSquare")
-- throws : False
-- Skip return : False
foreign import ccall "poppler_annot_square_new" poppler_annot_square_new ::
Ptr Document -> -- doc : TInterface "Poppler" "Document"
Ptr Rectangle -> -- rect : TInterface "Poppler" "Rectangle"
IO (Ptr AnnotSquare)
annotSquareNew ::
(MonadIO m, DocumentK a) =>
a -- doc
-> Rectangle -- rect
-> m AnnotSquare -- result
annotSquareNew doc rect = liftIO $ do
let doc' = unsafeManagedPtrCastPtr doc
let rect' = unsafeManagedPtrGetPtr rect
result <- poppler_annot_square_new doc' rect'
checkUnexpectedReturnNULL "poppler_annot_square_new" result
result' <- (wrapObject AnnotSquare) result
touchManagedPtr doc
touchManagedPtr rect
return result'
-- method AnnotSquare::get_interior_color
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotSquare", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TInterface "Poppler" "Color")
-- throws : False
-- Skip return : False
foreign import ccall "poppler_annot_square_get_interior_color" poppler_annot_square_get_interior_color ::
Ptr AnnotSquare -> -- _obj : TInterface "Poppler" "AnnotSquare"
IO (Ptr Color)
annotSquareGetInteriorColor ::
(MonadIO m, AnnotSquareK a) =>
a -- _obj
-> m Color -- result
annotSquareGetInteriorColor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_annot_square_get_interior_color _obj'
checkUnexpectedReturnNULL "poppler_annot_square_get_interior_color" result
result' <- (wrapBoxed Color) result
touchManagedPtr _obj
return result'
data AnnotSquareGetInteriorColorMethodInfo
instance (signature ~ (m Color), MonadIO m, AnnotSquareK a) => MethodInfo AnnotSquareGetInteriorColorMethodInfo a signature where
overloadedMethod _ = annotSquareGetInteriorColor
-- method AnnotSquare::set_interior_color
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotSquare", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "poppler_color", argType = TInterface "Poppler" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "poppler_annot_square_set_interior_color" poppler_annot_square_set_interior_color ::
Ptr AnnotSquare -> -- _obj : TInterface "Poppler" "AnnotSquare"
Ptr Color -> -- poppler_color : TInterface "Poppler" "Color"
IO ()
annotSquareSetInteriorColor ::
(MonadIO m, AnnotSquareK a) =>
a -- _obj
-> Maybe (Color) -- popplerColor
-> m () -- result
annotSquareSetInteriorColor _obj popplerColor = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybePopplerColor <- case popplerColor of
Nothing -> return nullPtr
Just jPopplerColor -> do
let jPopplerColor' = unsafeManagedPtrGetPtr jPopplerColor
return jPopplerColor'
poppler_annot_square_set_interior_color _obj' maybePopplerColor
touchManagedPtr _obj
whenJust popplerColor touchManagedPtr
return ()
data AnnotSquareSetInteriorColorMethodInfo
instance (signature ~ (Maybe (Color) -> m ()), MonadIO m, AnnotSquareK a) => MethodInfo AnnotSquareSetInteriorColorMethodInfo a signature where
overloadedMethod _ = annotSquareSetInteriorColor