{- | 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.Layer ( -- * Exported types Layer(..) , LayerK , toLayer , noLayer , -- * Methods -- ** layerGetRadioButtonGroupId layerGetRadioButtonGroupId , -- ** layerGetTitle layerGetTitle , -- ** layerHide layerHide , -- ** layerIsParent layerIsParent , -- ** layerIsVisible layerIsVisible , -- ** layerShow layerShow , ) 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 Layer = Layer (ForeignPtr Layer) foreign import ccall "poppler_layer_get_type" c_poppler_layer_get_type :: IO GType type instance ParentTypes Layer = LayerParentTypes type LayerParentTypes = '[GObject.Object] instance GObject Layer where gobjectIsInitiallyUnowned _ = False gobjectType _ = c_poppler_layer_get_type class GObject o => LayerK o instance (GObject o, IsDescendantOf Layer o) => LayerK o toLayer :: LayerK o => o -> IO Layer toLayer = unsafeCastTo Layer noLayer :: Maybe Layer noLayer = Nothing type instance AttributeList Layer = LayerAttributeList type LayerAttributeList = ('[ ] :: [(Symbol, *)]) type instance SignalList Layer = LayerSignalList type LayerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method Layer::get_radio_button_group_id -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "poppler_layer_get_radio_button_group_id" poppler_layer_get_radio_button_group_id :: Ptr Layer -> -- _obj : TInterface "Poppler" "Layer" IO Int32 layerGetRadioButtonGroupId :: (MonadIO m, LayerK a) => a -> -- _obj m Int32 layerGetRadioButtonGroupId _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- poppler_layer_get_radio_button_group_id _obj' touchManagedPtr _obj return result -- method Layer::get_title -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "poppler_layer_get_title" poppler_layer_get_title :: Ptr Layer -> -- _obj : TInterface "Poppler" "Layer" IO CString layerGetTitle :: (MonadIO m, LayerK a) => a -> -- _obj m T.Text layerGetTitle _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- poppler_layer_get_title _obj' checkUnexpectedReturnNULL "poppler_layer_get_title" result result' <- cstringToText result touchManagedPtr _obj return result' -- method Layer::hide -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "poppler_layer_hide" poppler_layer_hide :: Ptr Layer -> -- _obj : TInterface "Poppler" "Layer" IO () layerHide :: (MonadIO m, LayerK a) => a -> -- _obj m () layerHide _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj poppler_layer_hide _obj' touchManagedPtr _obj return () -- method Layer::is_parent -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "poppler_layer_is_parent" poppler_layer_is_parent :: Ptr Layer -> -- _obj : TInterface "Poppler" "Layer" IO CInt layerIsParent :: (MonadIO m, LayerK a) => a -> -- _obj m Bool layerIsParent _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- poppler_layer_is_parent _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Layer::is_visible -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "poppler_layer_is_visible" poppler_layer_is_visible :: Ptr Layer -> -- _obj : TInterface "Poppler" "Layer" IO CInt layerIsVisible :: (MonadIO m, LayerK a) => a -> -- _obj m Bool layerIsVisible _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- poppler_layer_is_visible _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Layer::show -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "poppler_layer_show" poppler_layer_show :: Ptr Layer -> -- _obj : TInterface "Poppler" "Layer" IO () layerShow :: (MonadIO m, LayerK a) => a -> -- _obj m () layerShow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj poppler_layer_show _obj' touchManagedPtr _obj return ()