{-# LINE 2 "./Graphics/UI/Gtk/Ornaments/HSeparator.chs" #-}
module Graphics.UI.Gtk.Ornaments.HSeparator (
HSeparator,
HSeparatorClass,
castToHSeparator, gTypeHSeparator,
toHSeparator,
hSeparatorNew,
) 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/HSeparator.chs" #-}
{-# LINE 62 "./Graphics/UI/Gtk/Ornaments/HSeparator.chs" #-}
hSeparatorNew :: IO HSeparator
hSeparatorNew :: IO HSeparator
hSeparatorNew =
(ForeignPtr HSeparator -> HSeparator, FinalizerPtr HSeparator)
-> IO (Ptr HSeparator) -> IO HSeparator
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr HSeparator -> HSeparator, FinalizerPtr HSeparator)
forall {a}. (ForeignPtr HSeparator -> HSeparator, FinalizerPtr a)
mkHSeparator (IO (Ptr HSeparator) -> IO HSeparator)
-> IO (Ptr HSeparator) -> IO HSeparator
forall a b. (a -> b) -> a -> b
$
(Ptr Widget -> Ptr HSeparator)
-> IO (Ptr Widget) -> IO (Ptr HSeparator)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Ptr Widget -> Ptr HSeparator
forall a b. Ptr a -> Ptr b
castPtr :: Ptr Widget -> Ptr HSeparator) (IO (Ptr Widget) -> IO (Ptr HSeparator))
-> IO (Ptr Widget) -> IO (Ptr HSeparator)
forall a b. (a -> b) -> a -> b
$
IO (Ptr Widget)
gtk_hseparator_new
{-# LINE 73 "./Graphics/UI/Gtk/Ornaments/HSeparator.chs" #-}
foreign import ccall unsafe "gtk_hseparator_new"
gtk_hseparator_new :: (IO (Ptr Widget))