{-# LINE 2 "./Graphics/UI/Gtk/Ornaments/VSeparator.chs" #-}
module Graphics.UI.Gtk.Ornaments.VSeparator (
VSeparator,
VSeparatorClass,
castToVSeparator, gTypeVSeparator,
toVSeparator,
vSeparatorNew,
) where
import Control.Monad (liftM)
import System.Glib.FFI
import Graphics.UI.Gtk.Abstract.Object (makeNewObject)
import Graphics.UI.Gtk.Types
{-# LINE 60 "./Graphics/UI/Gtk/Ornaments/VSeparator.chs" #-}
{-# LINE 62 "./Graphics/UI/Gtk/Ornaments/VSeparator.chs" #-}
vSeparatorNew :: IO VSeparator
vSeparatorNew :: IO VSeparator
vSeparatorNew =
(ForeignPtr VSeparator -> VSeparator, FinalizerPtr VSeparator)
-> IO (Ptr VSeparator) -> IO VSeparator
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr VSeparator -> VSeparator, FinalizerPtr VSeparator)
forall {a}. (ForeignPtr VSeparator -> VSeparator, FinalizerPtr a)
mkVSeparator (IO (Ptr VSeparator) -> IO VSeparator)
-> IO (Ptr VSeparator) -> IO VSeparator
forall a b. (a -> b) -> a -> b
$
(Ptr Widget -> Ptr VSeparator)
-> IO (Ptr Widget) -> IO (Ptr VSeparator)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Ptr Widget -> Ptr VSeparator
forall a b. Ptr a -> Ptr b
castPtr :: Ptr Widget -> Ptr VSeparator) (IO (Ptr Widget) -> IO (Ptr VSeparator))
-> IO (Ptr Widget) -> IO (Ptr VSeparator)
forall a b. (a -> b) -> a -> b
$
IO (Ptr Widget)
gtk_vseparator_new
{-# LINE 73 "./Graphics/UI/Gtk/Ornaments/VSeparator.chs" #-}
foreign import ccall unsafe "gtk_vseparator_new"
gtk_vseparator_new :: (IO (Ptr Widget))