{-# LINE 2 "./Graphics/UI/Gtk/MenuComboToolbar/ToolPalette.chs" #-}
module Graphics.UI.Gtk.MenuComboToolbar.ToolPalette (
ToolPalette,
ToolPaletteClass,
castToToolPalette,
toToolPalette,
ToolPaletteDragTargets (..),
toolPaletteNew,
toolPaletteUnsetIconSize,
toolPaletteUnsetStyle,
toolPaletteGetHAdjustment,
toolPaletteGetVAdjustment,
toolPaletteSetGroupPosition,
toolPaletteGetGroupPosition,
toolPaletteIconSize,
toolPaletteIconSizeSet,
toolPaletteToolbarStyle,
toolPaletteChildExclusive,
toolPaletteChildExpand,
toolPaletteSetScrollAdjustments,
) where
import Control.Monad (liftM)
import System.Glib.FFI
import System.Glib.Attributes
import System.Glib.Properties
import Graphics.UI.Gtk.General.Structs (IconSize (..))
import Graphics.UI.Gtk.General.Enums (ToolbarStyle (..))
import Graphics.UI.Gtk.Abstract.Object (makeNewObject)
import Graphics.UI.Gtk.Types
{-# LINE 110 "./Graphics/UI/Gtk/MenuComboToolbar/ToolPalette.chs" #-}
import Graphics.UI.Gtk.Signals
{-# LINE 111 "./Graphics/UI/Gtk/MenuComboToolbar/ToolPalette.chs" #-}
{-# LINE 113 "./Graphics/UI/Gtk/MenuComboToolbar/ToolPalette.chs" #-}
data ToolPaletteDragTargets = ToolPaletteDragItems
| ToolPaletteDragGroups
deriving (ToolPaletteDragTargets -> ToolPaletteDragTargets -> Bool
(ToolPaletteDragTargets -> ToolPaletteDragTargets -> Bool)
-> (ToolPaletteDragTargets -> ToolPaletteDragTargets -> Bool)
-> Eq ToolPaletteDragTargets
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ToolPaletteDragTargets -> ToolPaletteDragTargets -> Bool
== :: ToolPaletteDragTargets -> ToolPaletteDragTargets -> Bool
$c/= :: ToolPaletteDragTargets -> ToolPaletteDragTargets -> Bool
/= :: ToolPaletteDragTargets -> ToolPaletteDragTargets -> Bool
Eq)
instance Enum ToolPaletteDragTargets where
fromEnum :: ToolPaletteDragTargets -> Int
fromEnum ToolPaletteDragTargets
ToolPaletteDragItems = Int
1
fromEnum ToolPaletteDragTargets
ToolPaletteDragGroups = Int
2
toEnum 1 = ToolPaletteDragItems
toEnum 2 = ToolPaletteDragGroups
toEnum unmatched = error ("ToolPaletteDragTargets.toEnum: Cannot match " ++ show unmatched)
succ :: ToolPaletteDragTargets -> ToolPaletteDragTargets
succ ToolPaletteDragTargets
ToolPaletteDragItems = ToolPaletteDragTargets
ToolPaletteDragGroups
succ ToolPaletteDragTargets
_ = ToolPaletteDragTargets
forall a. HasCallStack => a
undefined
pred :: ToolPaletteDragTargets -> ToolPaletteDragTargets
pred ToolPaletteDragTargets
ToolPaletteDragGroups = ToolPaletteDragTargets
ToolPaletteDragItems
pred ToolPaletteDragTargets
_ = ToolPaletteDragTargets
forall a. HasCallStack => a
undefined
enumFromTo x y | fromEnum x == fromEnum y = [ y ]
| otherwise = x : enumFromTo (succ x) y
enumFrom x = enumFromTo x ToolPaletteDragGroups
enumFromThen _ _ = error "Enum ToolPaletteDragTargets: enumFromThen not implemented"
enumFromThenTo :: ToolPaletteDragTargets
-> ToolPaletteDragTargets
-> ToolPaletteDragTargets
-> [ToolPaletteDragTargets]
enumFromThenTo ToolPaletteDragTargets
_ ToolPaletteDragTargets
_ ToolPaletteDragTargets
_ = [Char] -> [ToolPaletteDragTargets]
forall a. HasCallStack => [Char] -> a
error [Char]
"Enum ToolPaletteDragTargets: enumFromThenTo not implemented"
{-# LINE 118 "./Graphics/UI/Gtk/MenuComboToolbar/ToolPalette.chs" #-}
toolPaletteNew :: IO ToolPalette
toolPaletteNew =
makeNewObject mkToolPalette $
liftM (castPtr :: Ptr Widget -> Ptr ToolPalette) $
gtk_tool_palette_new
{-# LINE 128 "./Graphics/UI/Gtk/MenuComboToolbar/ToolPalette.chs" #-}
toolPaletteUnsetIconSize :: ToolPaletteClass self => self -> IO ()
toolPaletteUnsetIconSize palette =
(\(ToolPalette arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_tool_palette_unset_icon_size argPtr1)
{-# LINE 137 "./Graphics/UI/Gtk/MenuComboToolbar/ToolPalette.chs" #-}
(toToolPalette palette)
toolPaletteUnsetStyle :: ToolPaletteClass self => self -> IO ()
toolPaletteUnsetStyle :: forall self. ToolPaletteClass self => self -> IO ()
toolPaletteUnsetStyle self
palette =
(\(ToolPalette ForeignPtr ToolPalette
arg1) -> ForeignPtr ToolPalette -> (Ptr ToolPalette -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ToolPalette
arg1 ((Ptr ToolPalette -> IO ()) -> IO ())
-> (Ptr ToolPalette -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ToolPalette
argPtr1 ->Ptr ToolPalette -> IO ()
gtk_tool_palette_unset_style Ptr ToolPalette
argPtr1)
{-# LINE 147 "./Graphics/UI/Gtk/MenuComboToolbar/ToolPalette.chs" #-}
(toToolPalette palette)
toolPaletteGetHAdjustment :: ToolPaletteClass self => self
-> IO Adjustment
toolPaletteGetHAdjustment :: forall self. ToolPaletteClass self => self -> IO Adjustment
toolPaletteGetHAdjustment self
palette =
(ForeignPtr Adjustment -> Adjustment, FinalizerPtr Adjustment)
-> IO (Ptr Adjustment) -> IO Adjustment
forall obj.
ObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr Adjustment -> Adjustment, FinalizerPtr Adjustment)
forall {a}. (ForeignPtr Adjustment -> Adjustment, FinalizerPtr a)
mkAdjustment (IO (Ptr Adjustment) -> IO Adjustment)
-> IO (Ptr Adjustment) -> IO Adjustment
forall a b. (a -> b) -> a -> b
$
(\(ToolPalette ForeignPtr ToolPalette
arg1) -> ForeignPtr ToolPalette
-> (Ptr ToolPalette -> IO (Ptr Adjustment)) -> IO (Ptr Adjustment)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ToolPalette
arg1 ((Ptr ToolPalette -> IO (Ptr Adjustment)) -> IO (Ptr Adjustment))
-> (Ptr ToolPalette -> IO (Ptr Adjustment)) -> IO (Ptr Adjustment)
forall a b. (a -> b) -> a -> b
$ \Ptr ToolPalette
argPtr1 ->Ptr ToolPalette -> IO (Ptr Adjustment)
gtk_tool_palette_get_hadjustment Ptr ToolPalette
argPtr1)
{-# LINE 158 "./Graphics/UI/Gtk/MenuComboToolbar/ToolPalette.chs" #-}
(toToolPalette palette)
toolPaletteGetVAdjustment :: ToolPaletteClass self => self
-> IO Adjustment
toolPaletteGetVAdjustment :: forall self. ToolPaletteClass self => self -> IO Adjustment
toolPaletteGetVAdjustment self
palette =
(ForeignPtr Adjustment -> Adjustment, FinalizerPtr Adjustment)
-> IO (Ptr Adjustment) -> IO Adjustment
forall obj.
ObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr Adjustment -> Adjustment, FinalizerPtr Adjustment)
forall {a}. (ForeignPtr Adjustment -> Adjustment, FinalizerPtr a)
mkAdjustment (IO (Ptr Adjustment) -> IO Adjustment)
-> IO (Ptr Adjustment) -> IO Adjustment
forall a b. (a -> b) -> a -> b
$
(\(ToolPalette ForeignPtr ToolPalette
arg1) -> ForeignPtr ToolPalette
-> (Ptr ToolPalette -> IO (Ptr Adjustment)) -> IO (Ptr Adjustment)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ToolPalette
arg1 ((Ptr ToolPalette -> IO (Ptr Adjustment)) -> IO (Ptr Adjustment))
-> (Ptr ToolPalette -> IO (Ptr Adjustment)) -> IO (Ptr Adjustment)
forall a b. (a -> b) -> a -> b
$ \Ptr ToolPalette
argPtr1 ->Ptr ToolPalette -> IO (Ptr Adjustment)
gtk_tool_palette_get_vadjustment Ptr ToolPalette
argPtr1)
{-# LINE 169 "./Graphics/UI/Gtk/MenuComboToolbar/ToolPalette.chs" #-}
(toToolPalette palette)
toolPaletteGetGroupPosition :: (ToolPaletteClass palette, ToolItemGroupClass group)
=> palette
-> group
-> IO Int
toolPaletteGetGroupPosition :: forall palette group.
(ToolPaletteClass palette, ToolItemGroupClass group) =>
palette -> group -> IO Int
toolPaletteGetGroupPosition palette
palette group
group =
(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
$
(\(ToolPalette ForeignPtr ToolPalette
arg1) (ToolItemGroup ForeignPtr ToolItemGroup
arg2) -> ForeignPtr ToolPalette -> (Ptr ToolPalette -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ToolPalette
arg1 ((Ptr ToolPalette -> IO CInt) -> IO CInt)
-> (Ptr ToolPalette -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr ToolPalette
argPtr1 ->ForeignPtr ToolItemGroup
-> (Ptr ToolItemGroup -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ToolItemGroup
arg2 ((Ptr ToolItemGroup -> IO CInt) -> IO CInt)
-> (Ptr ToolItemGroup -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr ToolItemGroup
argPtr2 ->Ptr ToolPalette -> Ptr ToolItemGroup -> IO CInt
gtk_tool_palette_get_group_position Ptr ToolPalette
argPtr1 Ptr ToolItemGroup
argPtr2)
{-# LINE 182 "./Graphics/UI/Gtk/MenuComboToolbar/ToolPalette.chs" #-}
(toToolPalette palette)
(group -> ToolItemGroup
forall o. ToolItemGroupClass o => o -> ToolItemGroup
toToolItemGroup group
group)
toolPaletteSetGroupPosition :: (ToolPaletteClass palette, ToolItemGroupClass group)
=> palette
-> group
-> Int
-> IO ()
toolPaletteSetGroupPosition :: forall palette group.
(ToolPaletteClass palette, ToolItemGroupClass group) =>
palette -> group -> Int -> IO ()
toolPaletteSetGroupPosition palette
palette group
group Int
position =
(\(ToolPalette ForeignPtr ToolPalette
arg1) (ToolItemGroup ForeignPtr ToolItemGroup
arg2) CInt
arg3 -> ForeignPtr ToolPalette -> (Ptr ToolPalette -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ToolPalette
arg1 ((Ptr ToolPalette -> IO ()) -> IO ())
-> (Ptr ToolPalette -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ToolPalette
argPtr1 ->ForeignPtr ToolItemGroup -> (Ptr ToolItemGroup -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ToolItemGroup
arg2 ((Ptr ToolItemGroup -> IO ()) -> IO ())
-> (Ptr ToolItemGroup -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ToolItemGroup
argPtr2 ->Ptr ToolPalette -> Ptr ToolItemGroup -> CInt -> IO ()
gtk_tool_palette_set_group_position Ptr ToolPalette
argPtr1 Ptr ToolItemGroup
argPtr2 CInt
arg3)
{-# LINE 197 "./Graphics/UI/Gtk/MenuComboToolbar/ToolPalette.chs" #-}
(toToolPalette palette)
(group -> ToolItemGroup
forall o. ToolItemGroupClass o => o -> ToolItemGroup
toToolItemGroup group
group)
(Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
position)
toolPaletteIconSize :: ToolPaletteClass self => Attr self IconSize
toolPaletteIconSize :: forall self. ToolPaletteClass self => Attr self IconSize
toolPaletteIconSize =
[Char] -> GType -> Attr self IconSize
forall gobj enum.
(GObjectClass gobj, Enum enum) =>
[Char] -> GType -> Attr gobj enum
newAttrFromEnumProperty [Char]
"icon-size"
GType
gtk_icon_size_get_type
{-# LINE 215 "./Graphics/UI/Gtk/MenuComboToolbar/ToolPalette.chs" #-}
toolPaletteIconSizeSet :: ToolPaletteClass self => Attr self Bool
toolPaletteIconSizeSet :: forall self. ToolPaletteClass self => Attr self Bool
toolPaletteIconSizeSet =
[Char] -> Attr self Bool
forall gobj. GObjectClass gobj => [Char] -> Attr gobj Bool
newAttrFromBoolProperty [Char]
"icon-size-set"
toolPaletteToolbarStyle :: ToolPaletteClass self => Attr self ToolbarStyle
toolPaletteToolbarStyle :: forall self. ToolPaletteClass self => Attr self ToolbarStyle
toolPaletteToolbarStyle =
[Char] -> GType -> Attr self ToolbarStyle
forall gobj enum.
(GObjectClass gobj, Enum enum) =>
[Char] -> GType -> Attr gobj enum
newAttrFromEnumProperty [Char]
"toolbar-style"
GType
gtk_toolbar_style_get_type
{-# LINE 236 "./Graphics/UI/Gtk/MenuComboToolbar/ToolPalette.chs" #-}
toolPaletteChildExclusive :: ToolPaletteClass self => Attr self Bool
toolPaletteChildExclusive :: forall self. ToolPaletteClass self => Attr self Bool
toolPaletteChildExclusive =
[Char] -> Attr self Bool
forall gobj. GObjectClass gobj => [Char] -> Attr gobj Bool
newAttrFromBoolProperty [Char]
"exclusive"
toolPaletteChildExpand :: ToolPaletteClass self => Attr self Bool
toolPaletteChildExpand :: forall self. ToolPaletteClass self => Attr self Bool
toolPaletteChildExpand =
[Char] -> Attr self Bool
forall gobj. GObjectClass gobj => [Char] -> Attr gobj Bool
newAttrFromBoolProperty [Char]
"expand"
toolPaletteSetScrollAdjustments :: ToolPaletteClass self => Signal self (Adjustment -> Adjustment -> IO ())
toolPaletteSetScrollAdjustments :: forall self.
ToolPaletteClass self =>
Signal self (Adjustment -> Adjustment -> IO ())
toolPaletteSetScrollAdjustments = (Bool
-> self
-> (Adjustment -> Adjustment -> IO ())
-> IO (ConnectId self))
-> Signal self (Adjustment -> Adjustment -> IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal ([Char]
-> Bool
-> self
-> (Adjustment -> Adjustment -> IO ())
-> IO (ConnectId self)
forall a' b' obj.
(GObjectClass a', GObjectClass b', GObjectClass obj) =>
[Char] -> Bool -> obj -> (a' -> b' -> IO ()) -> IO (ConnectId obj)
connect_OBJECT_OBJECT__NONE [Char]
"set-scroll-adjustments")
foreign import ccall safe "gtk_tool_palette_new"
gtk_tool_palette_new :: (IO (Ptr Widget))
foreign import ccall safe "gtk_tool_palette_unset_icon_size"
gtk_tool_palette_unset_icon_size :: ((Ptr ToolPalette) -> (IO ()))
foreign import ccall safe "gtk_tool_palette_unset_style"
gtk_tool_palette_unset_style :: ((Ptr ToolPalette) -> (IO ()))
foreign import ccall safe "gtk_tool_palette_get_hadjustment"
gtk_tool_palette_get_hadjustment :: ((Ptr ToolPalette) -> (IO (Ptr Adjustment)))
foreign import ccall safe "gtk_tool_palette_get_vadjustment"
gtk_tool_palette_get_vadjustment :: ((Ptr ToolPalette) -> (IO (Ptr Adjustment)))
foreign import ccall safe "gtk_tool_palette_get_group_position"
gtk_tool_palette_get_group_position :: ((Ptr ToolPalette) -> ((Ptr ToolItemGroup) -> (IO CInt)))
foreign import ccall safe "gtk_tool_palette_set_group_position"
gtk_tool_palette_set_group_position :: ((Ptr ToolPalette) -> ((Ptr ToolItemGroup) -> (CInt -> (IO ()))))
foreign import ccall unsafe "gtk_icon_size_get_type"
gtk_icon_size_get_type :: CULong
foreign import ccall unsafe "gtk_toolbar_style_get_type"
gtk_toolbar_style_get_type :: CULong