{-# LINE 2 "./Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs" #-}
module Graphics.UI.Gtk.MenuComboToolbar.Toolbar (
{-# LINE 72 "./Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs" #-}
Toolbar,
ToolbarClass,
castToToolbar, gTypeToolbar,
toToolbar,
Orientation(..),
ToolbarStyle(..),
toolbarNew,
{-# LINE 112 "./Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs" #-}
toolbarSetStyle,
toolbarGetStyle,
toolbarUnsetStyle,
IconSize(..),
toolbarGetIconSize,
toolbarInsert,
toolbarGetItemIndex,
toolbarGetNItems,
toolbarGetNthItem,
toolbarGetDropIndex,
toolbarSetDropHighlightItem,
toolbarSetShowArrow,
toolbarGetShowArrow,
ReliefStyle(..),
toolbarGetReliefStyle,
toolbarShowArrow,
toolbarStyle,
toolbarChildExpand,
toolbarChildHomogeneous,
onOrientationChanged,
afterOrientationChanged,
onStyleChanged,
afterStyleChanged,
onPopupContextMenu,
afterPopupContextMenu,
) where
import Control.Monad (liftM)
{-# LINE 174 "./Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs" #-}
import System.Glib.FFI
import System.Glib.Attributes
import System.Glib.Properties
import Graphics.UI.Gtk.Abstract.Object (makeNewObject)
import Graphics.UI.Gtk.Types
{-# LINE 179 "./Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs" #-}
import Graphics.UI.Gtk.Signals
{-# LINE 180 "./Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs" #-}
import Graphics.UI.Gtk.Abstract.ContainerChildProperties
import Graphics.UI.Gtk.General.Enums (Orientation(..), ToolbarStyle(..),
ReliefStyle(..))
import Graphics.UI.Gtk.General.Structs (
IconSize(..))
{-# LINE 193 "./Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs" #-}
toolbarNew :: IO Toolbar
toolbarNew :: IO Toolbar
toolbarNew =
(ForeignPtr Toolbar -> Toolbar, FinalizerPtr Toolbar)
-> IO (Ptr Toolbar) -> IO Toolbar
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr Toolbar -> Toolbar, FinalizerPtr Toolbar)
forall {a}. (ForeignPtr Toolbar -> Toolbar, FinalizerPtr a)
mkToolbar (IO (Ptr Toolbar) -> IO Toolbar) -> IO (Ptr Toolbar) -> IO Toolbar
forall a b. (a -> b) -> a -> b
$
(Ptr Widget -> Ptr Toolbar) -> IO (Ptr Widget) -> IO (Ptr Toolbar)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Ptr Widget -> Ptr Toolbar
forall a b. Ptr a -> Ptr b
castPtr :: Ptr Widget -> Ptr Toolbar) (IO (Ptr Widget) -> IO (Ptr Toolbar))
-> IO (Ptr Widget) -> IO (Ptr Toolbar)
forall a b. (a -> b) -> a -> b
$
IO (Ptr Widget)
gtk_toolbar_new
{-# LINE 204 "./Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs" #-}
{-# LINE 474 "./Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs" #-}
toolbarSetStyle :: ToolbarClass self => self -> ToolbarStyle -> IO ()
toolbarSetStyle :: forall self. ToolbarClass self => self -> ToolbarStyle -> IO ()
toolbarSetStyle self
self ToolbarStyle
style =
(\(Toolbar ForeignPtr Toolbar
arg1) CInt
arg2 -> ForeignPtr Toolbar -> (Ptr Toolbar -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Toolbar
arg1 ((Ptr Toolbar -> IO ()) -> IO ())
-> (Ptr Toolbar -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Toolbar
argPtr1 ->Ptr Toolbar -> CInt -> IO ()
gtk_toolbar_set_style Ptr Toolbar
argPtr1 CInt
arg2)
{-# LINE 480 "./Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs" #-}
(toToolbar self)
((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (ToolbarStyle -> Int) -> ToolbarStyle -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ToolbarStyle -> Int
forall a. Enum a => a -> Int
fromEnum) ToolbarStyle
style)
toolbarGetStyle :: ToolbarClass self => self -> IO ToolbarStyle
toolbarGetStyle :: forall self. ToolbarClass self => self -> IO ToolbarStyle
toolbarGetStyle self
self =
(CInt -> ToolbarStyle) -> IO CInt -> IO ToolbarStyle
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Int -> ToolbarStyle
forall a. Enum a => Int -> a
toEnum (Int -> ToolbarStyle) -> (CInt -> Int) -> CInt -> ToolbarStyle
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 ToolbarStyle) -> IO CInt -> IO ToolbarStyle
forall a b. (a -> b) -> a -> b
$
(\(Toolbar ForeignPtr Toolbar
arg1) -> ForeignPtr Toolbar -> (Ptr Toolbar -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Toolbar
arg1 ((Ptr Toolbar -> IO CInt) -> IO CInt)
-> (Ptr Toolbar -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Toolbar
argPtr1 ->Ptr Toolbar -> IO CInt
gtk_toolbar_get_style Ptr Toolbar
argPtr1)
{-# LINE 490 "./Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs" #-}
(toToolbar self)
toolbarUnsetStyle :: ToolbarClass self => self -> IO ()
toolbarUnsetStyle :: forall self. ToolbarClass self => self -> IO ()
toolbarUnsetStyle self
self =
(\(Toolbar ForeignPtr Toolbar
arg1) -> ForeignPtr Toolbar -> (Ptr Toolbar -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Toolbar
arg1 ((Ptr Toolbar -> IO ()) -> IO ())
-> (Ptr Toolbar -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Toolbar
argPtr1 ->Ptr Toolbar -> IO ()
gtk_toolbar_unset_style Ptr Toolbar
argPtr1)
{-# LINE 498 "./Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs" #-}
(toToolbar self)
{-# LINE 541 "./Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs" #-}
toolbarGetIconSize :: ToolbarClass self => self -> IO IconSize
toolbarGetIconSize :: forall self. ToolbarClass self => self -> IO IconSize
toolbarGetIconSize self
self =
(CInt -> IconSize) -> IO CInt -> IO IconSize
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Int -> IconSize
forall a. Enum a => Int -> a
toEnum (Int -> IconSize) -> (CInt -> Int) -> CInt -> IconSize
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 IconSize) -> IO CInt -> IO IconSize
forall a b. (a -> b) -> a -> b
$
(\(Toolbar ForeignPtr Toolbar
arg1) -> ForeignPtr Toolbar -> (Ptr Toolbar -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Toolbar
arg1 ((Ptr Toolbar -> IO CInt) -> IO CInt)
-> (Ptr Toolbar -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Toolbar
argPtr1 ->Ptr Toolbar -> IO CInt
gtk_toolbar_get_icon_size Ptr Toolbar
argPtr1)
{-# LINE 547 "./Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs" #-}
(toToolbar self)
toolbarInsert :: (ToolbarClass self, ToolItemClass item) => self
-> item
-> Int
-> IO ()
toolbarInsert :: forall self item.
(ToolbarClass self, ToolItemClass item) =>
self -> item -> Int -> IO ()
toolbarInsert self
self item
item Int
pos =
(\(Toolbar ForeignPtr Toolbar
arg1) (ToolItem ForeignPtr ToolItem
arg2) CInt
arg3 -> ForeignPtr Toolbar -> (Ptr Toolbar -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Toolbar
arg1 ((Ptr Toolbar -> IO ()) -> IO ())
-> (Ptr Toolbar -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Toolbar
argPtr1 ->ForeignPtr ToolItem -> (Ptr ToolItem -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ToolItem
arg2 ((Ptr ToolItem -> IO ()) -> IO ())
-> (Ptr ToolItem -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ToolItem
argPtr2 ->Ptr Toolbar -> Ptr ToolItem -> CInt -> IO ()
gtk_toolbar_insert Ptr Toolbar
argPtr1 Ptr ToolItem
argPtr2 CInt
arg3)
{-# LINE 562 "./Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs" #-}
(toToolbar self)
(item -> ToolItem
forall o. ToolItemClass o => o -> ToolItem
toToolItem item
item)
(Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
pos)
toolbarGetItemIndex :: (ToolbarClass self, ToolItemClass item) => self
-> item
-> IO Int
toolbarGetItemIndex :: forall self item.
(ToolbarClass self, ToolItemClass item) =>
self -> item -> IO Int
toolbarGetItemIndex self
self item
item =
(CInt -> Int) -> IO CInt -> IO Int
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral (IO CInt -> IO Int) -> IO CInt -> IO Int
forall a b. (a -> b) -> a -> b
$
(\(Toolbar ForeignPtr Toolbar
arg1) (ToolItem ForeignPtr ToolItem
arg2) -> ForeignPtr Toolbar -> (Ptr Toolbar -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Toolbar
arg1 ((Ptr Toolbar -> IO CInt) -> IO CInt)
-> (Ptr Toolbar -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Toolbar
argPtr1 ->ForeignPtr ToolItem -> (Ptr ToolItem -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ToolItem
arg2 ((Ptr ToolItem -> IO CInt) -> IO CInt)
-> (Ptr ToolItem -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr ToolItem
argPtr2 ->Ptr Toolbar -> Ptr ToolItem -> IO CInt
gtk_toolbar_get_item_index Ptr Toolbar
argPtr1 Ptr ToolItem
argPtr2)
{-# LINE 577 "./Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs" #-}
(toToolbar self)
(item -> ToolItem
forall o. ToolItemClass o => o -> ToolItem
toToolItem item
item)
toolbarGetNItems :: ToolbarClass self => self -> IO Int
toolbarGetNItems :: forall self. ToolbarClass self => self -> IO Int
toolbarGetNItems self
self =
(CInt -> Int) -> IO CInt -> IO Int
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral (IO CInt -> IO Int) -> IO CInt -> IO Int
forall a b. (a -> b) -> a -> b
$
(\(Toolbar ForeignPtr Toolbar
arg1) -> ForeignPtr Toolbar -> (Ptr Toolbar -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Toolbar
arg1 ((Ptr Toolbar -> IO CInt) -> IO CInt)
-> (Ptr Toolbar -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Toolbar
argPtr1 ->Ptr Toolbar -> IO CInt
gtk_toolbar_get_n_items Ptr Toolbar
argPtr1)
{-# LINE 588 "./Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs" #-}
(toToolbar self)
toolbarGetNthItem :: ToolbarClass self => self
-> Int
-> IO (Maybe ToolItem)
toolbarGetNthItem :: forall self.
ToolbarClass self =>
self -> Int -> IO (Maybe ToolItem)
toolbarGetNthItem self
self Int
n =
(IO (Ptr ToolItem) -> IO ToolItem)
-> IO (Ptr ToolItem) -> IO (Maybe ToolItem)
forall a. (IO (Ptr a) -> IO a) -> IO (Ptr a) -> IO (Maybe a)
maybeNull ((ForeignPtr ToolItem -> ToolItem, FinalizerPtr ToolItem)
-> IO (Ptr ToolItem) -> IO ToolItem
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr ToolItem -> ToolItem, FinalizerPtr ToolItem)
forall {a}. (ForeignPtr ToolItem -> ToolItem, FinalizerPtr a)
mkToolItem) (IO (Ptr ToolItem) -> IO (Maybe ToolItem))
-> IO (Ptr ToolItem) -> IO (Maybe ToolItem)
forall a b. (a -> b) -> a -> b
$
(\(Toolbar ForeignPtr Toolbar
arg1) CInt
arg2 -> ForeignPtr Toolbar
-> (Ptr Toolbar -> IO (Ptr ToolItem)) -> IO (Ptr ToolItem)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Toolbar
arg1 ((Ptr Toolbar -> IO (Ptr ToolItem)) -> IO (Ptr ToolItem))
-> (Ptr Toolbar -> IO (Ptr ToolItem)) -> IO (Ptr ToolItem)
forall a b. (a -> b) -> a -> b
$ \Ptr Toolbar
argPtr1 ->Ptr Toolbar -> CInt -> IO (Ptr ToolItem)
gtk_toolbar_get_nth_item Ptr Toolbar
argPtr1 CInt
arg2)
{-# LINE 602 "./Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs" #-}
(toToolbar self)
(Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
n)
toolbarGetDropIndex :: ToolbarClass self => self
-> (Int, Int)
-> IO Int
toolbarGetDropIndex :: forall self. ToolbarClass self => self -> (Int, Int) -> IO Int
toolbarGetDropIndex self
self (Int
x,Int
y) =
(CInt -> Int) -> IO CInt -> IO Int
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral (IO CInt -> IO Int) -> IO CInt -> IO Int
forall a b. (a -> b) -> a -> b
$
(\(Toolbar ForeignPtr Toolbar
arg1) CInt
arg2 CInt
arg3 -> ForeignPtr Toolbar -> (Ptr Toolbar -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Toolbar
arg1 ((Ptr Toolbar -> IO CInt) -> IO CInt)
-> (Ptr Toolbar -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Toolbar
argPtr1 ->Ptr Toolbar -> CInt -> CInt -> IO CInt
gtk_toolbar_get_drop_index Ptr Toolbar
argPtr1 CInt
arg2 CInt
arg3)
{-# LINE 619 "./Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs" #-}
(toToolbar self)
(Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
x)
(Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
y)
toolbarSetDropHighlightItem :: (ToolbarClass self, ToolItemClass toolItem) => self
-> Maybe toolItem
-> Int
-> IO ()
toolbarSetDropHighlightItem :: forall self toolItem.
(ToolbarClass self, ToolItemClass toolItem) =>
self -> Maybe toolItem -> Int -> IO ()
toolbarSetDropHighlightItem self
self Maybe toolItem
toolItem Int
index =
(\(Toolbar ForeignPtr Toolbar
arg1) (ToolItem ForeignPtr ToolItem
arg2) CInt
arg3 -> ForeignPtr Toolbar -> (Ptr Toolbar -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Toolbar
arg1 ((Ptr Toolbar -> IO ()) -> IO ())
-> (Ptr Toolbar -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Toolbar
argPtr1 ->ForeignPtr ToolItem -> (Ptr ToolItem -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ToolItem
arg2 ((Ptr ToolItem -> IO ()) -> IO ())
-> (Ptr ToolItem -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ToolItem
argPtr2 ->Ptr Toolbar -> Ptr ToolItem -> CInt -> IO ()
gtk_toolbar_set_drop_highlight_item Ptr Toolbar
argPtr1 Ptr ToolItem
argPtr2 CInt
arg3)
{-# LINE 640 "./Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs" #-}
(toToolbar self)
(ToolItem -> (toolItem -> ToolItem) -> Maybe toolItem -> ToolItem
forall b a. b -> (a -> b) -> Maybe a -> b
maybe (ForeignPtr ToolItem -> ToolItem
ToolItem ForeignPtr ToolItem
forall a. ForeignPtr a
nullForeignPtr) toolItem -> ToolItem
forall o. ToolItemClass o => o -> ToolItem
toToolItem Maybe toolItem
toolItem)
(Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
index)
toolbarSetShowArrow :: ToolbarClass self => self -> Bool -> IO ()
toolbarSetShowArrow :: forall self. ToolbarClass self => self -> Bool -> IO ()
toolbarSetShowArrow self
self Bool
showArrow =
(\(Toolbar ForeignPtr Toolbar
arg1) CInt
arg2 -> ForeignPtr Toolbar -> (Ptr Toolbar -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Toolbar
arg1 ((Ptr Toolbar -> IO ()) -> IO ())
-> (Ptr Toolbar -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Toolbar
argPtr1 ->Ptr Toolbar -> CInt -> IO ()
gtk_toolbar_set_show_arrow Ptr Toolbar
argPtr1 CInt
arg2)
{-# LINE 653 "./Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs" #-}
(toToolbar self)
(Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
showArrow)
toolbarGetShowArrow :: ToolbarClass self => self -> IO Bool
toolbarGetShowArrow :: forall self. ToolbarClass self => self -> IO Bool
toolbarGetShowArrow self
self =
(CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(Toolbar ForeignPtr Toolbar
arg1) -> ForeignPtr Toolbar -> (Ptr Toolbar -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Toolbar
arg1 ((Ptr Toolbar -> IO CInt) -> IO CInt)
-> (Ptr Toolbar -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Toolbar
argPtr1 ->Ptr Toolbar -> IO CInt
gtk_toolbar_get_show_arrow Ptr Toolbar
argPtr1)
{-# LINE 665 "./Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs" #-}
(toToolbar self)
toolbarGetReliefStyle :: ToolbarClass self => self -> IO ReliefStyle
toolbarGetReliefStyle :: forall self. ToolbarClass self => self -> IO ReliefStyle
toolbarGetReliefStyle self
self =
(CInt -> ReliefStyle) -> IO CInt -> IO ReliefStyle
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Int -> ReliefStyle
forall a. Enum a => Int -> a
toEnum (Int -> ReliefStyle) -> (CInt -> Int) -> CInt -> ReliefStyle
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 ReliefStyle) -> IO CInt -> IO ReliefStyle
forall a b. (a -> b) -> a -> b
$
(\(Toolbar ForeignPtr Toolbar
arg1) -> ForeignPtr Toolbar -> (Ptr Toolbar -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Toolbar
arg1 ((Ptr Toolbar -> IO CInt) -> IO CInt)
-> (Ptr Toolbar -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Toolbar
argPtr1 ->Ptr Toolbar -> IO CInt
gtk_toolbar_get_relief_style Ptr Toolbar
argPtr1)
{-# LINE 675 "./Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs" #-}
(toToolbar self)
{-# LINE 693 "./Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs" #-}
toolbarStyle :: ToolbarClass self => Attr self ToolbarStyle
toolbarStyle :: forall self. ToolbarClass self => Attr self ToolbarStyle
toolbarStyle = String -> GType -> Attr self ToolbarStyle
forall gobj enum.
(GObjectClass gobj, Enum enum) =>
String -> GType -> Attr gobj enum
newAttrFromEnumProperty String
"toolbar-style"
GType
gtk_toolbar_style_get_type
{-# LINE 700 "./Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs" #-}
toolbarShowArrow :: ToolbarClass self => Attr self Bool
toolbarShowArrow :: forall self. ToolbarClass self => Attr self Bool
toolbarShowArrow = (self -> IO Bool)
-> (self -> Bool -> IO ()) -> ReadWriteAttr self Bool Bool
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO Bool
forall self. ToolbarClass self => self -> IO Bool
toolbarGetShowArrow
self -> Bool -> IO ()
forall self. ToolbarClass self => self -> Bool -> IO ()
toolbarSetShowArrow
{-# LINE 725 "./Graphics/UI/Gtk/MenuComboToolbar/Toolbar.chs" #-}
toolbarChildExpand :: (ToolbarClass self, WidgetClass child) => child -> Attr self Bool
toolbarChildExpand :: forall self child.
(ToolbarClass self, WidgetClass child) =>
child -> Attr self Bool
toolbarChildExpand = String -> child -> Attr self Bool
forall container child.
(ContainerClass container, WidgetClass child) =>
String -> child -> Attr container Bool
newAttrFromContainerChildBoolProperty String
"expand"
toolbarChildHomogeneous :: (ToolbarClass self, WidgetClass child) => child -> Attr self Bool
toolbarChildHomogeneous :: forall self child.
(ToolbarClass self, WidgetClass child) =>
child -> Attr self Bool
toolbarChildHomogeneous = String -> child -> Attr self Bool
forall container child.
(ContainerClass container, WidgetClass child) =>
String -> child -> Attr container Bool
newAttrFromContainerChildBoolProperty String
"homogeneous"
onOrientationChanged, afterOrientationChanged :: ToolbarClass self => self
-> (Orientation -> IO ())
-> IO (ConnectId self)
onOrientationChanged :: forall self.
ToolbarClass self =>
self -> (Orientation -> IO ()) -> IO (ConnectId self)
onOrientationChanged = String
-> Bool -> self -> (Orientation -> IO ()) -> IO (ConnectId self)
forall a obj.
(Enum a, GObjectClass obj) =>
String -> Bool -> obj -> (a -> IO ()) -> IO (ConnectId obj)
connect_ENUM__NONE String
"orientation-changed" Bool
False
afterOrientationChanged :: forall self.
ToolbarClass self =>
self -> (Orientation -> IO ()) -> IO (ConnectId self)
afterOrientationChanged = String
-> Bool -> self -> (Orientation -> IO ()) -> IO (ConnectId self)
forall a obj.
(Enum a, GObjectClass obj) =>
String -> Bool -> obj -> (a -> IO ()) -> IO (ConnectId obj)
connect_ENUM__NONE String
"orientation-changed" Bool
True
onStyleChanged, afterStyleChanged :: ToolbarClass self => self
-> (ToolbarStyle -> IO ())
-> IO (ConnectId self)
onStyleChanged :: forall self.
ToolbarClass self =>
self -> (ToolbarStyle -> IO ()) -> IO (ConnectId self)
onStyleChanged = String
-> Bool -> self -> (ToolbarStyle -> IO ()) -> IO (ConnectId self)
forall a obj.
(Enum a, GObjectClass obj) =>
String -> Bool -> obj -> (a -> IO ()) -> IO (ConnectId obj)
connect_ENUM__NONE String
"style-changed" Bool
False
afterStyleChanged :: forall self.
ToolbarClass self =>
self -> (ToolbarStyle -> IO ()) -> IO (ConnectId self)
afterStyleChanged = String
-> Bool -> self -> (ToolbarStyle -> IO ()) -> IO (ConnectId self)
forall a obj.
(Enum a, GObjectClass obj) =>
String -> Bool -> obj -> (a -> IO ()) -> IO (ConnectId obj)
connect_ENUM__NONE String
"style-changed" Bool
True
onPopupContextMenu, afterPopupContextMenu :: ToolbarClass self => self
-> (Int -> Int -> Int -> IO Bool)
-> IO (ConnectId self)
= String
-> Bool
-> self
-> (Int -> Int -> Int -> IO Bool)
-> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String
-> Bool
-> obj
-> (Int -> Int -> Int -> IO Bool)
-> IO (ConnectId obj)
connect_INT_INT_INT__BOOL String
"popup-context-menu" Bool
False
= String
-> Bool
-> self
-> (Int -> Int -> Int -> IO Bool)
-> IO (ConnectId self)
forall obj.
GObjectClass obj =>
String
-> Bool
-> obj
-> (Int -> Int -> Int -> IO Bool)
-> IO (ConnectId obj)
connect_INT_INT_INT__BOOL String
"popup-context-menu" Bool
True
foreign import ccall unsafe "gtk_toolbar_new"
gtk_toolbar_new :: (IO (Ptr Widget))
foreign import ccall safe "gtk_toolbar_set_style"
gtk_toolbar_set_style :: ((Ptr Toolbar) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_toolbar_get_style"
gtk_toolbar_get_style :: ((Ptr Toolbar) -> (IO CInt))
foreign import ccall safe "gtk_toolbar_unset_style"
gtk_toolbar_unset_style :: ((Ptr Toolbar) -> (IO ()))
foreign import ccall unsafe "gtk_toolbar_get_icon_size"
gtk_toolbar_get_icon_size :: ((Ptr Toolbar) -> (IO CInt))
foreign import ccall safe "gtk_toolbar_insert"
gtk_toolbar_insert :: ((Ptr Toolbar) -> ((Ptr ToolItem) -> (CInt -> (IO ()))))
foreign import ccall unsafe "gtk_toolbar_get_item_index"
gtk_toolbar_get_item_index :: ((Ptr Toolbar) -> ((Ptr ToolItem) -> (IO CInt)))
foreign import ccall unsafe "gtk_toolbar_get_n_items"
gtk_toolbar_get_n_items :: ((Ptr Toolbar) -> (IO CInt))
foreign import ccall unsafe "gtk_toolbar_get_nth_item"
gtk_toolbar_get_nth_item :: ((Ptr Toolbar) -> (CInt -> (IO (Ptr ToolItem))))
foreign import ccall unsafe "gtk_toolbar_get_drop_index"
gtk_toolbar_get_drop_index :: ((Ptr Toolbar) -> (CInt -> (CInt -> (IO CInt))))
foreign import ccall safe "gtk_toolbar_set_drop_highlight_item"
gtk_toolbar_set_drop_highlight_item :: ((Ptr Toolbar) -> ((Ptr ToolItem) -> (CInt -> (IO ()))))
foreign import ccall safe "gtk_toolbar_set_show_arrow"
gtk_toolbar_set_show_arrow :: ((Ptr Toolbar) -> (CInt -> (IO ())))
foreign import ccall unsafe "gtk_toolbar_get_show_arrow"
gtk_toolbar_get_show_arrow :: ((Ptr Toolbar) -> (IO CInt))
foreign import ccall unsafe "gtk_toolbar_get_relief_style"
gtk_toolbar_get_relief_style :: ((Ptr Toolbar) -> (IO CInt))
foreign import ccall unsafe "gtk_toolbar_style_get_type"
gtk_toolbar_style_get_type :: CUInt