{-# LINE 2 "./Graphics/UI/Gtk/MenuComboToolbar/MenuBar.chs" #-}
module Graphics.UI.Gtk.MenuComboToolbar.MenuBar (
MenuBar,
MenuBarClass,
castToMenuBar, gTypeMenuBar,
toMenuBar,
PackDirection(..),
menuBarNew,
menuBarSetPackDirection,
menuBarGetPackDirection,
menuBarSetChildPackDirection,
menuBarGetChildPackDirection,
menuBarPackDirection,
menuBarChildPackDirection,
) where
import Control.Monad (liftM)
import System.Glib.FFI
import System.Glib.Attributes
import Graphics.UI.Gtk.Abstract.Object (makeNewObject)
import Graphics.UI.Gtk.Types
{-# LINE 79 "./Graphics/UI/Gtk/MenuComboToolbar/MenuBar.chs" #-}
{-# LINE 81 "./Graphics/UI/Gtk/MenuComboToolbar/MenuBar.chs" #-}
data PackDirection = PackDirectionLtr
| PackDirectionRtl
| PackDirectionTtb
| PackDirectionBtt
deriving (Enum)
{-# LINE 86 "./Graphics/UI/Gtk/MenuComboToolbar/MenuBar.chs" #-}
menuBarNew :: IO MenuBar
menuBarNew =
makeNewObject mkMenuBar $
liftM (castPtr :: Ptr Widget -> Ptr MenuBar) $
gtk_menu_bar_new
{-# LINE 98 "./Graphics/UI/Gtk/MenuComboToolbar/MenuBar.chs" #-}
menuBarSetPackDirection :: MenuBarClass self => self
-> PackDirection
-> IO ()
menuBarSetPackDirection self packDir =
(\(MenuBar arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_menu_bar_set_pack_direction argPtr1 arg2)
{-# LINE 112 "./Graphics/UI/Gtk/MenuComboToolbar/MenuBar.chs" #-}
(toMenuBar self)
((fromIntegral . fromEnum) packDir)
menuBarGetPackDirection :: MenuBarClass self => self
-> IO PackDirection
menuBarGetPackDirection self =
liftM (toEnum . fromIntegral) $
(\(MenuBar arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_menu_bar_get_pack_direction argPtr1)
{-# LINE 125 "./Graphics/UI/Gtk/MenuComboToolbar/MenuBar.chs" #-}
(toMenuBar self)
menuBarSetChildPackDirection :: MenuBarClass self => self
-> PackDirection
-> IO ()
menuBarSetChildPackDirection self childPackDir =
(\(MenuBar arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_menu_bar_set_child_pack_direction argPtr1 arg2)
{-# LINE 136 "./Graphics/UI/Gtk/MenuComboToolbar/MenuBar.chs" #-}
(toMenuBar self)
((fromIntegral . fromEnum) childPackDir)
menuBarGetChildPackDirection :: MenuBarClass self => self
-> IO PackDirection
menuBarGetChildPackDirection self =
liftM (toEnum . fromIntegral) $
(\(MenuBar arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_menu_bar_get_child_pack_direction argPtr1)
{-# LINE 149 "./Graphics/UI/Gtk/MenuComboToolbar/MenuBar.chs" #-}
(toMenuBar self)
menuBarPackDirection :: MenuBarClass self => Attr self PackDirection
menuBarPackDirection = newAttr
menuBarGetPackDirection
menuBarSetPackDirection
menuBarChildPackDirection :: MenuBarClass self => Attr self PackDirection
menuBarChildPackDirection = newAttr
menuBarGetChildPackDirection
menuBarSetChildPackDirection
foreign import ccall unsafe "gtk_menu_bar_new"
gtk_menu_bar_new :: (IO (Ptr Widget))
foreign import ccall safe "gtk_menu_bar_set_pack_direction"
gtk_menu_bar_set_pack_direction :: ((Ptr MenuBar) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_menu_bar_get_pack_direction"
gtk_menu_bar_get_pack_direction :: ((Ptr MenuBar) -> (IO CInt))
foreign import ccall safe "gtk_menu_bar_set_child_pack_direction"
gtk_menu_bar_set_child_pack_direction :: ((Ptr MenuBar) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_menu_bar_get_child_pack_direction"
gtk_menu_bar_get_child_pack_direction :: ((Ptr MenuBar) -> (IO CInt))