module Graphics.UI.Gtk.Poppler.Layer (
Layer,
LayerClass,
layerGetTitle,
layerIsVisible,
layerShow,
layerHide,
layerIsParent,
layerGetRadioButtonGroupId,
) where
import Control.Monad
import Data.Typeable
import System.Glib.FFI
import System.Glib.Flags
import System.Glib.GList
import System.Glib.GError
import System.Glib.GObject
import System.Glib.UTFString
import Graphics.UI.Gtk.Poppler.Enums
import Graphics.UI.Gtk.Poppler.Types
layerGetTitle :: LayerClass layer => layer
-> IO String
layerGetTitle layer =
(\(Layer arg1) -> withForeignPtr arg1 $ \argPtr1 ->poppler_layer_get_title argPtr1) (toLayer layer)
>>= peekUTFString
layerIsVisible :: LayerClass layer => layer
-> IO Bool
layerIsVisible layer =
liftM toBool $
(\(Layer arg1) -> withForeignPtr arg1 $ \argPtr1 ->poppler_layer_is_visible argPtr1) (toLayer layer)
layerShow :: LayerClass layer => layer -> IO ()
layerShow layer =
(\(Layer arg1) -> withForeignPtr arg1 $ \argPtr1 ->poppler_layer_show argPtr1) (toLayer layer)
layerHide :: LayerClass layer => layer -> IO ()
layerHide layer =
(\(Layer arg1) -> withForeignPtr arg1 $ \argPtr1 ->poppler_layer_hide argPtr1) (toLayer layer)
layerIsParent :: LayerClass layer => layer
-> IO Bool
layerIsParent layer =
liftM toBool $
(\(Layer arg1) -> withForeignPtr arg1 $ \argPtr1 ->poppler_layer_is_parent argPtr1) (toLayer layer)
layerGetRadioButtonGroupId :: LayerClass layer => layer
-> IO Int
layerGetRadioButtonGroupId layer =
liftM fromIntegral $
(\(Layer arg1) -> withForeignPtr arg1 $ \argPtr1 ->poppler_layer_get_radio_button_group_id argPtr1) (toLayer layer)
foreign import ccall safe "poppler_layer_get_title"
poppler_layer_get_title :: ((Ptr Layer) -> (IO (Ptr CChar)))
foreign import ccall safe "poppler_layer_is_visible"
poppler_layer_is_visible :: ((Ptr Layer) -> (IO CInt))
foreign import ccall safe "poppler_layer_show"
poppler_layer_show :: ((Ptr Layer) -> (IO ()))
foreign import ccall safe "poppler_layer_hide"
poppler_layer_hide :: ((Ptr Layer) -> (IO ()))
foreign import ccall safe "poppler_layer_is_parent"
poppler_layer_is_parent :: ((Ptr Layer) -> (IO CInt))
foreign import ccall safe "poppler_layer_get_radio_button_group_id"
poppler_layer_get_radio_button_group_id :: ((Ptr Layer) -> (IO CInt))