{-# LINE 2 "./Graphics/UI/Gtk/MenuComboToolbar/ToolItemGroup.chs" #-}
module Graphics.UI.Gtk.MenuComboToolbar.ToolItemGroup (
ToolItemGroup,
ToolItemGroupClass,
castToToolItemGroup,
toToolItemGroup,
toolItemGroupNew,
toolItemGroupGetDropItem,
toolItemGroupGetItemPosition,
toolItemGroupGetNItems,
toolItemGroupGetNthItem,
toolItemGroupInsert,
toolItemGroupSetItemPosition,
toolItemGroupCollapsed,
toolItemGroupEllipsize,
toolItemGroupHeaderRelief,
toolItemGroupLabel,
toolItemGroupLabelWidget,
toolItemGroupChildExpand,
toolItemGroupChildFill,
toolItemGroupChildHomogeneous,
toolItemGroupChildNewRow,
toolItemGroupChildPosition,
) where
import Control.Monad (liftM)
import System.Glib.FFI
import System.Glib.Attributes
import System.Glib.Properties
import System.Glib.UTFString
import Graphics.Rendering.Pango.Enums (EllipsizeMode (..))
import Graphics.UI.Gtk.General.Enums (ReliefStyle(..))
import Graphics.UI.Gtk.Abstract.Object (makeNewObject)
import Graphics.UI.Gtk.Types
{-# LINE 90 "./Graphics/UI/Gtk/MenuComboToolbar/ToolItemGroup.chs" #-}
{-# LINE 92 "./Graphics/UI/Gtk/MenuComboToolbar/ToolItemGroup.chs" #-}
toolItemGroupNew :: GlibString string => string
-> IO ToolItemGroup
toolItemGroupNew :: forall string. GlibString string => string -> IO ToolItemGroup
toolItemGroupNew string
label =
(ForeignPtr ToolItemGroup -> ToolItemGroup,
FinalizerPtr ToolItemGroup)
-> IO (Ptr ToolItemGroup) -> IO ToolItemGroup
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr ToolItemGroup -> ToolItemGroup,
FinalizerPtr ToolItemGroup)
forall {a}.
(ForeignPtr ToolItemGroup -> ToolItemGroup, FinalizerPtr a)
mkToolItemGroup (IO (Ptr ToolItemGroup) -> IO ToolItemGroup)
-> IO (Ptr ToolItemGroup) -> IO ToolItemGroup
forall a b. (a -> b) -> a -> b
$
(Ptr Widget -> Ptr ToolItemGroup)
-> IO (Ptr Widget) -> IO (Ptr ToolItemGroup)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Ptr Widget -> Ptr ToolItemGroup
forall a b. Ptr a -> Ptr b
castPtr :: Ptr Widget -> Ptr ToolItemGroup) (IO (Ptr Widget) -> IO (Ptr ToolItemGroup))
-> IO (Ptr Widget) -> IO (Ptr ToolItemGroup)
forall a b. (a -> b) -> a -> b
$
string -> (CString -> IO (Ptr Widget)) -> IO (Ptr Widget)
forall a. string -> (CString -> IO a) -> IO a
forall s a. GlibString s => s -> (CString -> IO a) -> IO a
withUTFString string
label ((CString -> IO (Ptr Widget)) -> IO (Ptr Widget))
-> (CString -> IO (Ptr Widget)) -> IO (Ptr Widget)
forall a b. (a -> b) -> a -> b
$ \ CString
labelPtr ->
CString -> IO (Ptr Widget)
gtk_tool_item_group_new
{-# LINE 105 "./Graphics/UI/Gtk/MenuComboToolbar/ToolItemGroup.chs" #-}
labelPtr
toolItemGroupGetDropItem :: ToolItemGroupClass self => self
-> (Int, Int)
-> IO ToolItem
toolItemGroupGetDropItem :: forall self.
ToolItemGroupClass self =>
self -> (Int, Int) -> IO ToolItem
toolItemGroupGetDropItem self
group (Int
x, Int
y) =
(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 ToolItem)
-> IO (Ptr ToolItem) -> IO ToolItem
forall a b. (a -> b) -> a -> b
$
(\(ToolItemGroup ForeignPtr ToolItemGroup
arg1) CInt
arg2 CInt
arg3 -> ForeignPtr ToolItemGroup
-> (Ptr ToolItemGroup -> IO (Ptr ToolItem)) -> IO (Ptr ToolItem)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ToolItemGroup
arg1 ((Ptr ToolItemGroup -> IO (Ptr ToolItem)) -> IO (Ptr ToolItem))
-> (Ptr ToolItemGroup -> IO (Ptr ToolItem)) -> IO (Ptr ToolItem)
forall a b. (a -> b) -> a -> b
$ \Ptr ToolItemGroup
argPtr1 ->Ptr ToolItemGroup -> CInt -> CInt -> IO (Ptr ToolItem)
gtk_tool_item_group_get_drop_item Ptr ToolItemGroup
argPtr1 CInt
arg2 CInt
arg3)
{-# LINE 117 "./Graphics/UI/Gtk/MenuComboToolbar/ToolItemGroup.chs" #-}
(toToolItemGroup group)
(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)
toolItemGroupGetItemPosition :: (ToolItemGroupClass group, ToolItemClass item)
=> group
-> item
-> IO Int
toolItemGroupGetItemPosition :: forall group item.
(ToolItemGroupClass group, ToolItemClass item) =>
group -> item -> IO Int
toolItemGroupGetItemPosition group
group 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
$
(\(ToolItemGroup ForeignPtr ToolItemGroup
arg1) (ToolItem ForeignPtr ToolItem
arg2) -> ForeignPtr ToolItemGroup
-> (Ptr ToolItemGroup -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ToolItemGroup
arg1 ((Ptr ToolItemGroup -> IO CInt) -> IO CInt)
-> (Ptr ToolItemGroup -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr ToolItemGroup
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 ToolItemGroup -> Ptr ToolItem -> IO CInt
gtk_tool_item_group_get_item_position Ptr ToolItemGroup
argPtr1 Ptr ToolItem
argPtr2)
{-# LINE 132 "./Graphics/UI/Gtk/MenuComboToolbar/ToolItemGroup.chs" #-}
(toToolItemGroup group)
(item -> ToolItem
forall o. ToolItemClass o => o -> ToolItem
toToolItem item
item)
toolItemGroupGetNItems :: ToolItemGroupClass group => group
-> IO Int
toolItemGroupGetNItems :: forall group. ToolItemGroupClass group => group -> IO Int
toolItemGroupGetNItems group
group =
(CUInt -> Int) -> IO CUInt -> IO Int
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral (IO CUInt -> IO Int) -> IO CUInt -> IO Int
forall a b. (a -> b) -> a -> b
$
(\(ToolItemGroup ForeignPtr ToolItemGroup
arg1) -> ForeignPtr ToolItemGroup
-> (Ptr ToolItemGroup -> IO CUInt) -> IO CUInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ToolItemGroup
arg1 ((Ptr ToolItemGroup -> IO CUInt) -> IO CUInt)
-> (Ptr ToolItemGroup -> IO CUInt) -> IO CUInt
forall a b. (a -> b) -> a -> b
$ \Ptr ToolItemGroup
argPtr1 ->Ptr ToolItemGroup -> IO CUInt
gtk_tool_item_group_get_n_items Ptr ToolItemGroup
argPtr1)
{-# LINE 144 "./Graphics/UI/Gtk/MenuComboToolbar/ToolItemGroup.chs" #-}
(toToolItemGroup group)
toolItemGroupGetNthItem :: ToolItemGroupClass group => group
-> Int
-> IO ToolItem
toolItemGroupGetNthItem :: forall group.
ToolItemGroupClass group =>
group -> Int -> IO ToolItem
toolItemGroupGetNthItem group
group Int
index =
(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 ToolItem)
-> IO (Ptr ToolItem) -> IO ToolItem
forall a b. (a -> b) -> a -> b
$
(\(ToolItemGroup ForeignPtr ToolItemGroup
arg1) CUInt
arg2 -> ForeignPtr ToolItemGroup
-> (Ptr ToolItemGroup -> IO (Ptr ToolItem)) -> IO (Ptr ToolItem)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ToolItemGroup
arg1 ((Ptr ToolItemGroup -> IO (Ptr ToolItem)) -> IO (Ptr ToolItem))
-> (Ptr ToolItemGroup -> IO (Ptr ToolItem)) -> IO (Ptr ToolItem)
forall a b. (a -> b) -> a -> b
$ \Ptr ToolItemGroup
argPtr1 ->Ptr ToolItemGroup -> CUInt -> IO (Ptr ToolItem)
gtk_tool_item_group_get_nth_item Ptr ToolItemGroup
argPtr1 CUInt
arg2)
{-# LINE 156 "./Graphics/UI/Gtk/MenuComboToolbar/ToolItemGroup.chs" #-}
(toToolItemGroup group)
(Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
index)
toolItemGroupInsert :: (ToolItemGroupClass group, ToolItemClass item)
=> group
-> item
-> Int
-> IO ()
toolItemGroupInsert :: forall group item.
(ToolItemGroupClass group, ToolItemClass item) =>
group -> item -> Int -> IO ()
toolItemGroupInsert group
group item
item Int
position =
(\(ToolItemGroup ForeignPtr ToolItemGroup
arg1) (ToolItem ForeignPtr ToolItem
arg2) CInt
arg3 -> ForeignPtr ToolItemGroup -> (Ptr ToolItemGroup -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ToolItemGroup
arg1 ((Ptr ToolItemGroup -> IO ()) -> IO ())
-> (Ptr ToolItemGroup -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ToolItemGroup
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 ToolItemGroup -> Ptr ToolItem -> CInt -> IO ()
gtk_tool_item_group_insert Ptr ToolItemGroup
argPtr1 Ptr ToolItem
argPtr2 CInt
arg3)
{-# LINE 171 "./Graphics/UI/Gtk/MenuComboToolbar/ToolItemGroup.chs" #-}
(toToolItemGroup group)
(item -> ToolItem
forall o. ToolItemClass o => o -> ToolItem
toToolItem item
item)
(Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
position)
toolItemGroupSetItemPosition :: (ToolItemGroupClass group, ToolItemClass item)
=> group
-> item
-> Int
-> IO ()
toolItemGroupSetItemPosition :: forall group item.
(ToolItemGroupClass group, ToolItemClass item) =>
group -> item -> Int -> IO ()
toolItemGroupSetItemPosition group
group item
item Int
position =
(\(ToolItemGroup ForeignPtr ToolItemGroup
arg1) (ToolItem ForeignPtr ToolItem
arg2) CInt
arg3 -> ForeignPtr ToolItemGroup -> (Ptr ToolItemGroup -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ToolItemGroup
arg1 ((Ptr ToolItemGroup -> IO ()) -> IO ())
-> (Ptr ToolItemGroup -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ToolItemGroup
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 ToolItemGroup -> Ptr ToolItem -> CInt -> IO ()
gtk_tool_item_group_set_item_position Ptr ToolItemGroup
argPtr1 Ptr ToolItem
argPtr2 CInt
arg3)
{-# LINE 186 "./Graphics/UI/Gtk/MenuComboToolbar/ToolItemGroup.chs" #-}
(toToolItemGroup group)
(item -> ToolItem
forall o. ToolItemClass o => o -> ToolItem
toToolItem item
item)
(Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
position)
toolItemGroupCollapsed :: ToolItemGroupClass group => Attr group Bool
toolItemGroupCollapsed :: forall group. ToolItemGroupClass group => Attr group Bool
toolItemGroupCollapsed =
String -> Attr group Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"collapsed"
toolItemGroupEllipsize :: ToolItemGroupClass group => Attr group EllipsizeMode
toolItemGroupEllipsize :: forall group. ToolItemGroupClass group => Attr group EllipsizeMode
toolItemGroupEllipsize =
String -> GType -> Attr group EllipsizeMode
forall gobj enum.
(GObjectClass gobj, Enum enum) =>
String -> GType -> Attr gobj enum
newAttrFromEnumProperty String
"ellipsize"
GType
pango_ellipsize_mode_get_type
{-# LINE 210 "./Graphics/UI/Gtk/MenuComboToolbar/ToolItemGroup.chs" #-}
toolItemGroupHeaderRelief :: ToolItemGroupClass group => Attr group ReliefStyle
=
String -> GType -> Attr group ReliefStyle
forall gobj enum.
(GObjectClass gobj, Enum enum) =>
String -> GType -> Attr gobj enum
newAttrFromEnumProperty String
"header-relief"
GType
gtk_relief_style_get_type
{-# LINE 221 "./Graphics/UI/Gtk/MenuComboToolbar/ToolItemGroup.chs" #-}
toolItemGroupLabel :: GlibString string => ToolItemGroupClass group => Attr group string
toolItemGroupLabel :: forall string group.
(GlibString string, ToolItemGroupClass group) =>
Attr group string
toolItemGroupLabel =
String -> Attr group string
forall gobj string.
(GObjectClass gobj, GlibString string) =>
String -> Attr gobj string
newAttrFromStringProperty String
"label"
toolItemGroupLabelWidget :: ToolItemGroupClass group => Attr group Widget
toolItemGroupLabelWidget :: forall group. ToolItemGroupClass group => Attr group Widget
toolItemGroupLabelWidget =
String -> GType -> ReadWriteAttr group Widget Widget
forall gobj gobj' gobj''.
(GObjectClass gobj, GObjectClass gobj', GObjectClass gobj'') =>
String -> GType -> ReadWriteAttr gobj gobj' gobj''
newAttrFromObjectProperty String
"label-widget"
GType
gtk_widget_get_type
{-# LINE 240 "./Graphics/UI/Gtk/MenuComboToolbar/ToolItemGroup.chs" #-}
toolItemGroupChildExpand :: ToolItemGroupClass group => Attr group Bool
toolItemGroupChildExpand :: forall group. ToolItemGroupClass group => Attr group Bool
toolItemGroupChildExpand =
String -> Attr group Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"expand"
toolItemGroupChildFill :: ToolItemGroupClass group => Attr group Bool
toolItemGroupChildFill :: forall group. ToolItemGroupClass group => Attr group Bool
toolItemGroupChildFill =
String -> Attr group Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"fill"
toolItemGroupChildHomogeneous :: ToolItemGroupClass group => Attr group Bool
toolItemGroupChildHomogeneous :: forall group. ToolItemGroupClass group => Attr group Bool
toolItemGroupChildHomogeneous =
String -> Attr group Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"homogeneous"
toolItemGroupChildNewRow :: ToolItemGroupClass group => Attr group Bool
toolItemGroupChildNewRow :: forall group. ToolItemGroupClass group => Attr group Bool
toolItemGroupChildNewRow =
String -> Attr group Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"new-row"
toolItemGroupChildPosition :: ToolItemGroupClass group => Attr group Int
toolItemGroupChildPosition :: forall group. ToolItemGroupClass group => Attr group Int
toolItemGroupChildPosition =
String -> Attr group Int
forall gobj. GObjectClass gobj => String -> Attr gobj Int
newAttrFromIntProperty String
"position"
foreign import ccall safe "gtk_tool_item_group_new"
gtk_tool_item_group_new :: ((Ptr CChar) -> (IO (Ptr Widget)))
foreign import ccall safe "gtk_tool_item_group_get_drop_item"
gtk_tool_item_group_get_drop_item :: ((Ptr ToolItemGroup) -> (CInt -> (CInt -> (IO (Ptr ToolItem)))))
foreign import ccall safe "gtk_tool_item_group_get_item_position"
gtk_tool_item_group_get_item_position :: ((Ptr ToolItemGroup) -> ((Ptr ToolItem) -> (IO CInt)))
foreign import ccall safe "gtk_tool_item_group_get_n_items"
gtk_tool_item_group_get_n_items :: ((Ptr ToolItemGroup) -> (IO CUInt))
foreign import ccall safe "gtk_tool_item_group_get_nth_item"
gtk_tool_item_group_get_nth_item :: ((Ptr ToolItemGroup) -> (CUInt -> (IO (Ptr ToolItem))))
foreign import ccall safe "gtk_tool_item_group_insert"
gtk_tool_item_group_insert :: ((Ptr ToolItemGroup) -> ((Ptr ToolItem) -> (CInt -> (IO ()))))
foreign import ccall safe "gtk_tool_item_group_set_item_position"
gtk_tool_item_group_set_item_position :: ((Ptr ToolItemGroup) -> ((Ptr ToolItem) -> (CInt -> (IO ()))))
foreign import ccall unsafe "pango_ellipsize_mode_get_type"
pango_ellipsize_mode_get_type :: CULong
foreign import ccall unsafe "gtk_relief_style_get_type"
gtk_relief_style_get_type :: CULong
foreign import ccall unsafe "gtk_widget_get_type"
gtk_widget_get_type :: CULong