{-# LINE 2 "./Graphics/UI/Gtk/Layout/VPaned.chs" #-}
module Graphics.UI.Gtk.Layout.VPaned (
VPaned,
VPanedClass,
castToVPaned, gTypeVPaned,
toVPaned,
vPanedNew,
) 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/VPaned.chs" #-}
{-# LINE 63 "./Graphics/UI/Gtk/Layout/VPaned.chs" #-}
vPanedNew :: IO VPaned
vPanedNew :: IO VPaned
vPanedNew =
(ForeignPtr VPaned -> VPaned, FinalizerPtr VPaned)
-> IO (Ptr VPaned) -> IO VPaned
forall obj.
ObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr VPaned -> VPaned, FinalizerPtr VPaned)
forall {a}. (ForeignPtr VPaned -> VPaned, FinalizerPtr a)
mkVPaned (IO (Ptr VPaned) -> IO VPaned) -> IO (Ptr VPaned) -> IO VPaned
forall a b. (a -> b) -> a -> b
$
(Ptr Widget -> Ptr VPaned) -> IO (Ptr Widget) -> IO (Ptr VPaned)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Ptr Widget -> Ptr VPaned
forall a b. Ptr a -> Ptr b
castPtr :: Ptr Widget -> Ptr VPaned) (IO (Ptr Widget) -> IO (Ptr VPaned))
-> IO (Ptr Widget) -> IO (Ptr VPaned)
forall a b. (a -> b) -> a -> b
$
IO (Ptr Widget)
gtk_vpaned_new
{-# LINE 74 "./Graphics/UI/Gtk/Layout/VPaned.chs" #-}
foreign import ccall unsafe "gtk_vpaned_new"
gtk_vpaned_new :: (IO (Ptr Widget))