{-# LINE 2 "./Graphics/UI/Gtk/MenuComboToolbar/SeparatorMenuItem.chs" #-}
module Graphics.UI.Gtk.MenuComboToolbar.SeparatorMenuItem (
SeparatorMenuItem,
SeparatorMenuItemClass,
castToSeparatorMenuItem, gTypeSeparatorMenuItem,
toSeparatorMenuItem,
separatorMenuItemNew,
) where
import Control.Monad (liftM)
import System.Glib.FFI
import Graphics.UI.Gtk.Abstract.Object (makeNewObject)
import Graphics.UI.Gtk.Types
{-# LINE 63 "./Graphics/UI/Gtk/MenuComboToolbar/SeparatorMenuItem.chs" #-}
{-# LINE 65 "./Graphics/UI/Gtk/MenuComboToolbar/SeparatorMenuItem.chs" #-}
separatorMenuItemNew :: IO SeparatorMenuItem
=
(ForeignPtr SeparatorMenuItem -> SeparatorMenuItem,
FinalizerPtr SeparatorMenuItem)
-> IO (Ptr SeparatorMenuItem) -> IO SeparatorMenuItem
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr SeparatorMenuItem -> SeparatorMenuItem,
FinalizerPtr SeparatorMenuItem)
forall {a}.
(ForeignPtr SeparatorMenuItem -> SeparatorMenuItem, FinalizerPtr a)
mkSeparatorMenuItem (IO (Ptr SeparatorMenuItem) -> IO SeparatorMenuItem)
-> IO (Ptr SeparatorMenuItem) -> IO SeparatorMenuItem
forall a b. (a -> b) -> a -> b
$
(Ptr Widget -> Ptr SeparatorMenuItem)
-> IO (Ptr Widget) -> IO (Ptr SeparatorMenuItem)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Ptr Widget -> Ptr SeparatorMenuItem
forall a b. Ptr a -> Ptr b
castPtr :: Ptr Widget -> Ptr SeparatorMenuItem) (IO (Ptr Widget) -> IO (Ptr SeparatorMenuItem))
-> IO (Ptr Widget) -> IO (Ptr SeparatorMenuItem)
forall a b. (a -> b) -> a -> b
$
IO (Ptr Widget)
gtk_separator_menu_item_new
{-# LINE 76 "./Graphics/UI/Gtk/MenuComboToolbar/SeparatorMenuItem.chs" #-}
foreign import ccall safe "gtk_separator_menu_item_new"
:: (IO (Ptr Widget))