module GI.Poppler.Objects.AnnotMovie
(
AnnotMovie(..) ,
AnnotMovieK ,
toAnnotMovie ,
noAnnotMovie ,
annotMovieGetMovie ,
annotMovieGetTitle ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
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 AnnotMovie = AnnotMovie (ForeignPtr AnnotMovie)
foreign import ccall "poppler_annot_movie_get_type"
c_poppler_annot_movie_get_type :: IO GType
type instance ParentTypes AnnotMovie = AnnotMovieParentTypes
type AnnotMovieParentTypes = '[Annot, GObject.Object]
instance GObject AnnotMovie where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_poppler_annot_movie_get_type
class GObject o => AnnotMovieK o
instance (GObject o, IsDescendantOf AnnotMovie o) => AnnotMovieK o
toAnnotMovie :: AnnotMovieK o => o -> IO AnnotMovie
toAnnotMovie = unsafeCastTo AnnotMovie
noAnnotMovie :: Maybe AnnotMovie
noAnnotMovie = Nothing
type instance AttributeList AnnotMovie = AnnotMovieAttributeList
type AnnotMovieAttributeList = ('[ ] :: [(Symbol, *)])
type instance SignalList AnnotMovie = AnnotMovieSignalList
type AnnotMovieSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "poppler_annot_movie_get_movie" poppler_annot_movie_get_movie ::
Ptr AnnotMovie ->
IO (Ptr Movie)
annotMovieGetMovie ::
(MonadIO m, AnnotMovieK a) =>
a ->
m Movie
annotMovieGetMovie _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_annot_movie_get_movie _obj'
checkUnexpectedReturnNULL "poppler_annot_movie_get_movie" result
result' <- (newObject Movie) result
touchManagedPtr _obj
return result'
foreign import ccall "poppler_annot_movie_get_title" poppler_annot_movie_get_title ::
Ptr AnnotMovie ->
IO CString
annotMovieGetTitle ::
(MonadIO m, AnnotMovieK a) =>
a ->
m T.Text
annotMovieGetTitle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_annot_movie_get_title _obj'
checkUnexpectedReturnNULL "poppler_annot_movie_get_title" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'