{-# 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 (Int -> PackDirection
PackDirection -> Int
PackDirection -> [PackDirection]
PackDirection -> PackDirection
PackDirection -> PackDirection -> [PackDirection]
PackDirection -> PackDirection -> PackDirection -> [PackDirection]
(PackDirection -> PackDirection)
-> (PackDirection -> PackDirection)
-> (Int -> PackDirection)
-> (PackDirection -> Int)
-> (PackDirection -> [PackDirection])
-> (PackDirection -> PackDirection -> [PackDirection])
-> (PackDirection -> PackDirection -> [PackDirection])
-> (PackDirection
-> PackDirection -> PackDirection -> [PackDirection])
-> Enum PackDirection
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
$csucc :: PackDirection -> PackDirection
succ :: PackDirection -> PackDirection
$cpred :: PackDirection -> PackDirection
pred :: PackDirection -> PackDirection
$ctoEnum :: Int -> PackDirection
toEnum :: Int -> PackDirection
$cfromEnum :: PackDirection -> Int
fromEnum :: PackDirection -> Int
$cenumFrom :: PackDirection -> [PackDirection]
enumFrom :: PackDirection -> [PackDirection]
$cenumFromThen :: PackDirection -> PackDirection -> [PackDirection]
enumFromThen :: PackDirection -> PackDirection -> [PackDirection]
$cenumFromTo :: PackDirection -> PackDirection -> [PackDirection]
enumFromTo :: PackDirection -> PackDirection -> [PackDirection]
$cenumFromThenTo :: PackDirection -> PackDirection -> PackDirection -> [PackDirection]
enumFromThenTo :: PackDirection -> PackDirection -> PackDirection -> [PackDirection]
Enum)
{-# LINE 86 "./Graphics/UI/Gtk/MenuComboToolbar/MenuBar.chs" #-}
menuBarNew :: IO MenuBar
=
(ForeignPtr MenuBar -> MenuBar, FinalizerPtr MenuBar)
-> IO (Ptr MenuBar) -> IO MenuBar
forall obj.
ObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr MenuBar -> MenuBar, FinalizerPtr MenuBar)
forall {a}. (ForeignPtr MenuBar -> MenuBar, FinalizerPtr a)
mkMenuBar (IO (Ptr MenuBar) -> IO MenuBar) -> IO (Ptr MenuBar) -> IO MenuBar
forall a b. (a -> b) -> a -> b
$
(Ptr Widget -> Ptr MenuBar) -> IO (Ptr Widget) -> IO (Ptr MenuBar)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Ptr Widget -> Ptr MenuBar
forall a b. Ptr a -> Ptr b
castPtr :: Ptr Widget -> Ptr MenuBar) (IO (Ptr Widget) -> IO (Ptr MenuBar))
-> IO (Ptr Widget) -> IO (Ptr MenuBar)
forall a b. (a -> b) -> a -> b
$
IO (Ptr Widget)
gtk_menu_bar_new
{-# LINE 98 "./Graphics/UI/Gtk/MenuComboToolbar/MenuBar.chs" #-}
menuBarSetPackDirection :: MenuBarClass self => self
-> PackDirection
-> IO ()
self
self PackDirection
packDir =
(\(MenuBar ForeignPtr MenuBar
arg1) CInt
arg2 -> ForeignPtr MenuBar -> (Ptr MenuBar -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr MenuBar
arg1 ((Ptr MenuBar -> IO ()) -> IO ())
-> (Ptr MenuBar -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr MenuBar
argPtr1 ->Ptr MenuBar -> CInt -> IO ()
gtk_menu_bar_set_pack_direction Ptr MenuBar
argPtr1 CInt
arg2)
{-# LINE 112 "./Graphics/UI/Gtk/MenuComboToolbar/MenuBar.chs" #-}
(toMenuBar self)
((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (PackDirection -> Int) -> PackDirection -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. PackDirection -> Int
forall a. Enum a => a -> Int
fromEnum) PackDirection
packDir)
menuBarGetPackDirection :: MenuBarClass self => self
-> IO PackDirection
self
self =
(CInt -> PackDirection) -> IO CInt -> IO PackDirection
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Int -> PackDirection
forall a. Enum a => Int -> a
toEnum (Int -> PackDirection) -> (CInt -> Int) -> CInt -> PackDirection
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) (IO CInt -> IO PackDirection) -> IO CInt -> IO PackDirection
forall a b. (a -> b) -> a -> b
$
(\(MenuBar ForeignPtr MenuBar
arg1) -> ForeignPtr MenuBar -> (Ptr MenuBar -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr MenuBar
arg1 ((Ptr MenuBar -> IO CInt) -> IO CInt)
-> (Ptr MenuBar -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr MenuBar
argPtr1 ->Ptr MenuBar -> IO CInt
gtk_menu_bar_get_pack_direction Ptr MenuBar
argPtr1)
{-# LINE 125 "./Graphics/UI/Gtk/MenuComboToolbar/MenuBar.chs" #-}
(toMenuBar self)
menuBarSetChildPackDirection :: MenuBarClass self => self
-> PackDirection
-> IO ()
self
self PackDirection
childPackDir =
(\(MenuBar ForeignPtr MenuBar
arg1) CInt
arg2 -> ForeignPtr MenuBar -> (Ptr MenuBar -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr MenuBar
arg1 ((Ptr MenuBar -> IO ()) -> IO ())
-> (Ptr MenuBar -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr MenuBar
argPtr1 ->Ptr MenuBar -> CInt -> IO ()
gtk_menu_bar_set_child_pack_direction Ptr MenuBar
argPtr1 CInt
arg2)
{-# LINE 136 "./Graphics/UI/Gtk/MenuComboToolbar/MenuBar.chs" #-}
(toMenuBar self)
((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (PackDirection -> Int) -> PackDirection -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. PackDirection -> Int
forall a. Enum a => a -> Int
fromEnum) PackDirection
childPackDir)
menuBarGetChildPackDirection :: MenuBarClass self => self
-> IO PackDirection
self
self =
(CInt -> PackDirection) -> IO CInt -> IO PackDirection
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Int -> PackDirection
forall a. Enum a => Int -> a
toEnum (Int -> PackDirection) -> (CInt -> Int) -> CInt -> PackDirection
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) (IO CInt -> IO PackDirection) -> IO CInt -> IO PackDirection
forall a b. (a -> b) -> a -> b
$
(\(MenuBar ForeignPtr MenuBar
arg1) -> ForeignPtr MenuBar -> (Ptr MenuBar -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr MenuBar
arg1 ((Ptr MenuBar -> IO CInt) -> IO CInt)
-> (Ptr MenuBar -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr MenuBar
argPtr1 ->Ptr MenuBar -> IO CInt
gtk_menu_bar_get_child_pack_direction Ptr MenuBar
argPtr1)
{-# LINE 149 "./Graphics/UI/Gtk/MenuComboToolbar/MenuBar.chs" #-}
(toMenuBar self)
menuBarPackDirection :: MenuBarClass self => Attr self PackDirection
= (self -> IO PackDirection)
-> (self -> PackDirection -> IO ())
-> ReadWriteAttr self PackDirection PackDirection
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO PackDirection
forall self. MenuBarClass self => self -> IO PackDirection
menuBarGetPackDirection
self -> PackDirection -> IO ()
forall self. MenuBarClass self => self -> PackDirection -> IO ()
menuBarSetPackDirection
menuBarChildPackDirection :: MenuBarClass self => Attr self PackDirection
= (self -> IO PackDirection)
-> (self -> PackDirection -> IO ())
-> ReadWriteAttr self PackDirection PackDirection
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO PackDirection
forall self. MenuBarClass self => self -> IO PackDirection
menuBarGetChildPackDirection
self -> PackDirection -> IO ()
forall self. MenuBarClass self => self -> PackDirection -> IO ()
menuBarSetChildPackDirection
foreign import ccall unsafe "gtk_menu_bar_new"
:: (IO (Ptr Widget))
foreign import ccall safe "gtk_menu_bar_set_pack_direction"
:: ((Ptr MenuBar) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_menu_bar_get_pack_direction"
:: ((Ptr MenuBar) -> (IO CInt))
foreign import ccall safe "gtk_menu_bar_set_child_pack_direction"
:: ((Ptr MenuBar) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_menu_bar_get_child_pack_direction"
:: ((Ptr MenuBar) -> (IO CInt))