{-# LINE 2 "./Graphics/UI/Gtk/Layout/HPaned.chs" #-}
module Graphics.UI.Gtk.Layout.HPaned (
HPaned,
HPanedClass,
castToHPaned, gTypeHPaned,
toHPaned,
hPanedNew,
) where
import Control.Monad (liftM)
import System.Glib.FFI
import Graphics.UI.Gtk.Abstract.Object (makeNewObject)
import Graphics.UI.Gtk.Types
{-# LINE 61 "./Graphics/UI/Gtk/Layout/HPaned.chs" #-}
{-# LINE 63 "./Graphics/UI/Gtk/Layout/HPaned.chs" #-}
hPanedNew :: IO HPaned
hPanedNew :: IO HPaned
hPanedNew =
(ForeignPtr HPaned -> HPaned, FinalizerPtr HPaned)
-> IO (Ptr HPaned) -> IO HPaned
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr HPaned -> HPaned, FinalizerPtr HPaned)
forall {a}. (ForeignPtr HPaned -> HPaned, FinalizerPtr a)
mkHPaned (IO (Ptr HPaned) -> IO HPaned) -> IO (Ptr HPaned) -> IO HPaned
forall a b. (a -> b) -> a -> b
$
(Ptr Widget -> Ptr HPaned) -> IO (Ptr Widget) -> IO (Ptr HPaned)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Ptr Widget -> Ptr HPaned
forall a b. Ptr a -> Ptr b
castPtr :: Ptr Widget -> Ptr HPaned) (IO (Ptr Widget) -> IO (Ptr HPaned))
-> IO (Ptr Widget) -> IO (Ptr HPaned)
forall a b. (a -> b) -> a -> b
$
IO (Ptr Widget)
gtk_hpaned_new
{-# LINE 74 "./Graphics/UI/Gtk/Layout/HPaned.chs" #-}
foreign import ccall unsafe "gtk_hpaned_new"
gtk_hpaned_new :: (IO (Ptr Widget))