module GI.Poppler.Objects.Movie
(
Movie(..) ,
MovieK ,
toMovie ,
noMovie ,
movieGetFilename ,
movieNeedPoster ,
movieShowControls ,
) 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 Movie = Movie (ForeignPtr Movie)
foreign import ccall "poppler_movie_get_type"
c_poppler_movie_get_type :: IO GType
type instance ParentTypes Movie = MovieParentTypes
type MovieParentTypes = '[GObject.Object]
instance GObject Movie where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_poppler_movie_get_type
class GObject o => MovieK o
instance (GObject o, IsDescendantOf Movie o) => MovieK o
toMovie :: MovieK o => o -> IO Movie
toMovie = unsafeCastTo Movie
noMovie :: Maybe Movie
noMovie = Nothing
type instance AttributeList Movie = MovieAttributeList
type MovieAttributeList = ('[ ] :: [(Symbol, *)])
type instance SignalList Movie = MovieSignalList
type MovieSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "poppler_movie_get_filename" poppler_movie_get_filename ::
Ptr Movie ->
IO CString
movieGetFilename ::
(MonadIO m, MovieK a) =>
a ->
m T.Text
movieGetFilename _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_movie_get_filename _obj'
checkUnexpectedReturnNULL "poppler_movie_get_filename" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
foreign import ccall "poppler_movie_need_poster" poppler_movie_need_poster ::
Ptr Movie ->
IO CInt
movieNeedPoster ::
(MonadIO m, MovieK a) =>
a ->
m Bool
movieNeedPoster _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_movie_need_poster _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "poppler_movie_show_controls" poppler_movie_show_controls ::
Ptr Movie ->
IO CInt
movieShowControls ::
(MonadIO m, MovieK a) =>
a ->
m Bool
movieShowControls _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_movie_show_controls _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'