{-# LINE 2 "./Graphics/UI/Gtk/Selectors/ColorSelection.chs" #-}
module Graphics.UI.Gtk.Selectors.ColorSelection (
ColorSelection,
ColorSelectionClass,
castToColorSelection, gTypeColorSelection,
toColorSelection,
colorSelectionNew,
colorSelectionGetCurrentAlpha,
colorSelectionSetCurrentAlpha,
colorSelectionGetCurrentColor,
colorSelectionSetCurrentColor,
colorSelectionGetHasOpacityControl,
colorSelectionSetHasOpacityControl,
colorSelectionGetHasPalette,
colorSelectionSetHasPalette,
colorSelectionGetPreviousAlpha,
colorSelectionSetPreviousAlpha,
colorSelectionGetPreviousColor,
colorSelectionSetPreviousColor,
colorSelectionIsAdjusting,
colorSelectionHasOpacityControl,
colorSelectionHasPalette,
colorSelectionCurrentAlpha,
colorSelectionPreviousAlpha,
) 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 85 "./Graphics/UI/Gtk/Selectors/ColorSelection.chs" #-}
import Graphics.UI.Gtk.General.Structs (Color)
{-# LINE 88 "./Graphics/UI/Gtk/Selectors/ColorSelection.chs" #-}
colorSelectionNew :: IO ColorSelection
colorSelectionNew :: IO ColorSelection
colorSelectionNew =
(ForeignPtr ColorSelection -> ColorSelection,
FinalizerPtr ColorSelection)
-> IO (Ptr ColorSelection) -> IO ColorSelection
forall obj.
ObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr ColorSelection -> ColorSelection,
FinalizerPtr ColorSelection)
forall {a}.
(ForeignPtr ColorSelection -> ColorSelection, FinalizerPtr a)
mkColorSelection (IO (Ptr ColorSelection) -> IO ColorSelection)
-> IO (Ptr ColorSelection) -> IO ColorSelection
forall a b. (a -> b) -> a -> b
$
(Ptr Widget -> Ptr ColorSelection)
-> IO (Ptr Widget) -> IO (Ptr ColorSelection)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Ptr Widget -> Ptr ColorSelection
forall a b. Ptr a -> Ptr b
castPtr :: Ptr Widget -> Ptr ColorSelection) (IO (Ptr Widget) -> IO (Ptr ColorSelection))
-> IO (Ptr Widget) -> IO (Ptr ColorSelection)
forall a b. (a -> b) -> a -> b
$
IO (Ptr Widget)
gtk_color_selection_new
{-# LINE 99 "./Graphics/UI/Gtk/Selectors/ColorSelection.chs" #-}
colorSelectionGetCurrentAlpha :: ColorSelectionClass self => self
-> IO Int
colorSelectionGetCurrentAlpha :: forall self. ColorSelectionClass self => self -> IO Int
colorSelectionGetCurrentAlpha self
self =
(CUShort -> Int) -> IO CUShort -> IO Int
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CUShort -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral (IO CUShort -> IO Int) -> IO CUShort -> IO Int
forall a b. (a -> b) -> a -> b
$
(\(ColorSelection ForeignPtr ColorSelection
arg1) -> ForeignPtr ColorSelection
-> (Ptr ColorSelection -> IO CUShort) -> IO CUShort
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ColorSelection
arg1 ((Ptr ColorSelection -> IO CUShort) -> IO CUShort)
-> (Ptr ColorSelection -> IO CUShort) -> IO CUShort
forall a b. (a -> b) -> a -> b
$ \Ptr ColorSelection
argPtr1 ->Ptr ColorSelection -> IO CUShort
gtk_color_selection_get_current_alpha Ptr ColorSelection
argPtr1)
{-# LINE 110 "./Graphics/UI/Gtk/Selectors/ColorSelection.chs" #-}
(toColorSelection self)
colorSelectionSetCurrentAlpha :: ColorSelectionClass self => self
-> Int
-> IO ()
colorSelectionSetCurrentAlpha :: forall self. ColorSelectionClass self => self -> Int -> IO ()
colorSelectionSetCurrentAlpha self
self Int
alpha =
(\(ColorSelection ForeignPtr ColorSelection
arg1) CUShort
arg2 -> ForeignPtr ColorSelection -> (Ptr ColorSelection -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ColorSelection
arg1 ((Ptr ColorSelection -> IO ()) -> IO ())
-> (Ptr ColorSelection -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ColorSelection
argPtr1 ->Ptr ColorSelection -> CUShort -> IO ()
gtk_color_selection_set_current_alpha Ptr ColorSelection
argPtr1 CUShort
arg2)
{-# LINE 120 "./Graphics/UI/Gtk/Selectors/ColorSelection.chs" #-}
(toColorSelection self)
(Int -> CUShort
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
alpha)
colorSelectionGetCurrentColor :: ColorSelectionClass self => self -> IO Color
colorSelectionGetCurrentColor :: forall self. ColorSelectionClass self => self -> IO Color
colorSelectionGetCurrentColor self
self =
(Ptr Color -> IO Color) -> IO Color
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr Color -> IO Color) -> IO Color)
-> (Ptr Color -> IO Color) -> IO Color
forall a b. (a -> b) -> a -> b
$ \Ptr Color
colorPtr -> do
(\(ColorSelection ForeignPtr ColorSelection
arg1) Ptr ()
arg2 -> ForeignPtr ColorSelection -> (Ptr ColorSelection -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ColorSelection
arg1 ((Ptr ColorSelection -> IO ()) -> IO ())
-> (Ptr ColorSelection -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ColorSelection
argPtr1 ->Ptr ColorSelection -> Ptr () -> IO ()
gtk_color_selection_get_current_color Ptr ColorSelection
argPtr1 Ptr ()
arg2)
{-# LINE 129 "./Graphics/UI/Gtk/Selectors/ColorSelection.chs" #-}
(toColorSelection self)
(Ptr Color -> Ptr ()
forall a b. Ptr a -> Ptr b
castPtr Ptr Color
colorPtr)
Ptr Color -> IO Color
forall a. Storable a => Ptr a -> IO a
peek Ptr Color
colorPtr
colorSelectionSetCurrentColor :: ColorSelectionClass self => self
-> Color
-> IO ()
colorSelectionSetCurrentColor :: forall self. ColorSelectionClass self => self -> Color -> IO ()
colorSelectionSetCurrentColor self
self Color
color =
Color -> (Ptr Color -> IO ()) -> IO ()
forall a b. Storable a => a -> (Ptr a -> IO b) -> IO b
with Color
color ((Ptr Color -> IO ()) -> IO ()) -> (Ptr Color -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Color
colorPtr ->
(\(ColorSelection ForeignPtr ColorSelection
arg1) Ptr ()
arg2 -> ForeignPtr ColorSelection -> (Ptr ColorSelection -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ColorSelection
arg1 ((Ptr ColorSelection -> IO ()) -> IO ())
-> (Ptr ColorSelection -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ColorSelection
argPtr1 ->Ptr ColorSelection -> Ptr () -> IO ()
gtk_color_selection_set_current_color Ptr ColorSelection
argPtr1 Ptr ()
arg2)
{-# LINE 142 "./Graphics/UI/Gtk/Selectors/ColorSelection.chs" #-}
(toColorSelection self)
(Ptr Color -> Ptr ()
forall a b. Ptr a -> Ptr b
castPtr Ptr Color
colorPtr)
colorSelectionGetHasOpacityControl :: ColorSelectionClass self => self
-> IO Bool
colorSelectionGetHasOpacityControl :: forall self. ColorSelectionClass self => self -> IO Bool
colorSelectionGetHasOpacityControl 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
$
(\(ColorSelection ForeignPtr ColorSelection
arg1) -> ForeignPtr ColorSelection
-> (Ptr ColorSelection -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ColorSelection
arg1 ((Ptr ColorSelection -> IO CInt) -> IO CInt)
-> (Ptr ColorSelection -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr ColorSelection
argPtr1 ->Ptr ColorSelection -> IO CInt
gtk_color_selection_get_has_opacity_control Ptr ColorSelection
argPtr1)
{-# LINE 153 "./Graphics/UI/Gtk/Selectors/ColorSelection.chs" #-}
(toColorSelection self)
colorSelectionSetHasOpacityControl :: ColorSelectionClass self => self
-> Bool
-> IO ()
colorSelectionSetHasOpacityControl :: forall self. ColorSelectionClass self => self -> Bool -> IO ()
colorSelectionSetHasOpacityControl self
self Bool
hasOpacity =
(\(ColorSelection ForeignPtr ColorSelection
arg1) CInt
arg2 -> ForeignPtr ColorSelection -> (Ptr ColorSelection -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ColorSelection
arg1 ((Ptr ColorSelection -> IO ()) -> IO ())
-> (Ptr ColorSelection -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ColorSelection
argPtr1 ->Ptr ColorSelection -> CInt -> IO ()
gtk_color_selection_set_has_opacity_control Ptr ColorSelection
argPtr1 CInt
arg2)
{-# LINE 163 "./Graphics/UI/Gtk/Selectors/ColorSelection.chs" #-}
(toColorSelection self)
(Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
hasOpacity)
colorSelectionGetHasPalette :: ColorSelectionClass self => self
-> IO Bool
colorSelectionGetHasPalette :: forall self. ColorSelectionClass self => self -> IO Bool
colorSelectionGetHasPalette 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
$
(\(ColorSelection ForeignPtr ColorSelection
arg1) -> ForeignPtr ColorSelection
-> (Ptr ColorSelection -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ColorSelection
arg1 ((Ptr ColorSelection -> IO CInt) -> IO CInt)
-> (Ptr ColorSelection -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr ColorSelection
argPtr1 ->Ptr ColorSelection -> IO CInt
gtk_color_selection_get_has_palette Ptr ColorSelection
argPtr1)
{-# LINE 174 "./Graphics/UI/Gtk/Selectors/ColorSelection.chs" #-}
(toColorSelection self)
colorSelectionSetHasPalette :: ColorSelectionClass self => self
-> Bool
-> IO ()
colorSelectionSetHasPalette :: forall self. ColorSelectionClass self => self -> Bool -> IO ()
colorSelectionSetHasPalette self
self Bool
hasPalette =
(\(ColorSelection ForeignPtr ColorSelection
arg1) CInt
arg2 -> ForeignPtr ColorSelection -> (Ptr ColorSelection -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ColorSelection
arg1 ((Ptr ColorSelection -> IO ()) -> IO ())
-> (Ptr ColorSelection -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ColorSelection
argPtr1 ->Ptr ColorSelection -> CInt -> IO ()
gtk_color_selection_set_has_palette Ptr ColorSelection
argPtr1 CInt
arg2)
{-# LINE 184 "./Graphics/UI/Gtk/Selectors/ColorSelection.chs" #-}
(toColorSelection self)
(Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
hasPalette)
colorSelectionGetPreviousAlpha :: ColorSelectionClass self => self
-> IO Int
colorSelectionGetPreviousAlpha :: forall self. ColorSelectionClass self => self -> IO Int
colorSelectionGetPreviousAlpha self
self =
(CUShort -> Int) -> IO CUShort -> IO Int
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CUShort -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral (IO CUShort -> IO Int) -> IO CUShort -> IO Int
forall a b. (a -> b) -> a -> b
$
(\(ColorSelection ForeignPtr ColorSelection
arg1) -> ForeignPtr ColorSelection
-> (Ptr ColorSelection -> IO CUShort) -> IO CUShort
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ColorSelection
arg1 ((Ptr ColorSelection -> IO CUShort) -> IO CUShort)
-> (Ptr ColorSelection -> IO CUShort) -> IO CUShort
forall a b. (a -> b) -> a -> b
$ \Ptr ColorSelection
argPtr1 ->Ptr ColorSelection -> IO CUShort
gtk_color_selection_get_previous_alpha Ptr ColorSelection
argPtr1)
{-# LINE 194 "./Graphics/UI/Gtk/Selectors/ColorSelection.chs" #-}
(toColorSelection self)
colorSelectionSetPreviousAlpha :: ColorSelectionClass self => self
-> Int
-> IO ()
colorSelectionSetPreviousAlpha :: forall self. ColorSelectionClass self => self -> Int -> IO ()
colorSelectionSetPreviousAlpha self
self Int
alpha =
(\(ColorSelection ForeignPtr ColorSelection
arg1) CUShort
arg2 -> ForeignPtr ColorSelection -> (Ptr ColorSelection -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ColorSelection
arg1 ((Ptr ColorSelection -> IO ()) -> IO ())
-> (Ptr ColorSelection -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ColorSelection
argPtr1 ->Ptr ColorSelection -> CUShort -> IO ()
gtk_color_selection_set_previous_alpha Ptr ColorSelection
argPtr1 CUShort
arg2)
{-# LINE 204 "./Graphics/UI/Gtk/Selectors/ColorSelection.chs" #-}
(toColorSelection self)
(Int -> CUShort
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
alpha)
colorSelectionGetPreviousColor :: ColorSelectionClass self => self -> IO Color
colorSelectionGetPreviousColor :: forall self. ColorSelectionClass self => self -> IO Color
colorSelectionGetPreviousColor self
self =
(Ptr Color -> IO Color) -> IO Color
forall a b. Storable a => (Ptr a -> IO b) -> IO b
alloca ((Ptr Color -> IO Color) -> IO Color)
-> (Ptr Color -> IO Color) -> IO Color
forall a b. (a -> b) -> a -> b
$ \Ptr Color
colorPtr -> do
(\(ColorSelection ForeignPtr ColorSelection
arg1) Ptr ()
arg2 -> ForeignPtr ColorSelection -> (Ptr ColorSelection -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ColorSelection
arg1 ((Ptr ColorSelection -> IO ()) -> IO ())
-> (Ptr ColorSelection -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ColorSelection
argPtr1 ->Ptr ColorSelection -> Ptr () -> IO ()
gtk_color_selection_get_previous_color Ptr ColorSelection
argPtr1 Ptr ()
arg2)
{-# LINE 213 "./Graphics/UI/Gtk/Selectors/ColorSelection.chs" #-}
(toColorSelection self)
(Ptr Color -> Ptr ()
forall a b. Ptr a -> Ptr b
castPtr Ptr Color
colorPtr)
Ptr Color -> IO Color
forall a. Storable a => Ptr a -> IO a
peek Ptr Color
colorPtr
colorSelectionSetPreviousColor :: ColorSelectionClass self => self
-> Color -> IO ()
colorSelectionSetPreviousColor :: forall self. ColorSelectionClass self => self -> Color -> IO ()
colorSelectionSetPreviousColor self
self Color
color =
Color -> (Ptr Color -> IO ()) -> IO ()
forall a b. Storable a => a -> (Ptr a -> IO b) -> IO b
with Color
color ((Ptr Color -> IO ()) -> IO ()) -> (Ptr Color -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Color
colorPtr ->
(\(ColorSelection ForeignPtr ColorSelection
arg1) Ptr ()
arg2 -> ForeignPtr ColorSelection -> (Ptr ColorSelection -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ColorSelection
arg1 ((Ptr ColorSelection -> IO ()) -> IO ())
-> (Ptr ColorSelection -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ColorSelection
argPtr1 ->Ptr ColorSelection -> Ptr () -> IO ()
gtk_color_selection_set_previous_color Ptr ColorSelection
argPtr1 Ptr ()
arg2)
{-# LINE 227 "./Graphics/UI/Gtk/Selectors/ColorSelection.chs" #-}
(toColorSelection self)
(Ptr Color -> Ptr ()
forall a b. Ptr a -> Ptr b
castPtr Ptr Color
colorPtr)
colorSelectionIsAdjusting :: ColorSelectionClass self => self -> IO Bool
colorSelectionIsAdjusting :: forall self. ColorSelectionClass self => self -> IO Bool
colorSelectionIsAdjusting 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
$
(\(ColorSelection ForeignPtr ColorSelection
arg1) -> ForeignPtr ColorSelection
-> (Ptr ColorSelection -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr ColorSelection
arg1 ((Ptr ColorSelection -> IO CInt) -> IO CInt)
-> (Ptr ColorSelection -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr ColorSelection
argPtr1 ->Ptr ColorSelection -> IO CInt
gtk_color_selection_is_adjusting Ptr ColorSelection
argPtr1)
{-# LINE 237 "./Graphics/UI/Gtk/Selectors/ColorSelection.chs" #-}
(toColorSelection self)
colorSelectionHasOpacityControl :: ColorSelectionClass self => Attr self Bool
colorSelectionHasOpacityControl :: forall self. ColorSelectionClass self => Attr self Bool
colorSelectionHasOpacityControl = (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. ColorSelectionClass self => self -> IO Bool
colorSelectionGetHasOpacityControl
self -> Bool -> IO ()
forall self. ColorSelectionClass self => self -> Bool -> IO ()
colorSelectionSetHasOpacityControl
colorSelectionHasPalette :: ColorSelectionClass self => Attr self Bool
colorSelectionHasPalette :: forall self. ColorSelectionClass self => Attr self Bool
colorSelectionHasPalette = (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. ColorSelectionClass self => self -> IO Bool
colorSelectionGetHasPalette
self -> Bool -> IO ()
forall self. ColorSelectionClass self => self -> Bool -> IO ()
colorSelectionSetHasPalette
colorSelectionCurrentAlpha :: ColorSelectionClass self => Attr self Int
colorSelectionCurrentAlpha :: forall self. ColorSelectionClass self => Attr self Int
colorSelectionCurrentAlpha = (self -> IO Int)
-> (self -> Int -> IO ()) -> ReadWriteAttr self Int Int
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO Int
forall self. ColorSelectionClass self => self -> IO Int
colorSelectionGetCurrentAlpha
self -> Int -> IO ()
forall self. ColorSelectionClass self => self -> Int -> IO ()
colorSelectionSetCurrentAlpha
colorSelectionPreviousAlpha :: ColorSelectionClass self => Attr self Int
colorSelectionPreviousAlpha :: forall self. ColorSelectionClass self => Attr self Int
colorSelectionPreviousAlpha = (self -> IO Int)
-> (self -> Int -> IO ()) -> ReadWriteAttr self Int Int
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO Int
forall self. ColorSelectionClass self => self -> IO Int
colorSelectionGetPreviousAlpha
self -> Int -> IO ()
forall self. ColorSelectionClass self => self -> Int -> IO ()
colorSelectionSetPreviousAlpha
foreign import ccall unsafe "gtk_color_selection_new"
gtk_color_selection_new :: (IO (Ptr Widget))
foreign import ccall unsafe "gtk_color_selection_get_current_alpha"
gtk_color_selection_get_current_alpha :: ((Ptr ColorSelection) -> (IO CUShort))
foreign import ccall safe "gtk_color_selection_set_current_alpha"
gtk_color_selection_set_current_alpha :: ((Ptr ColorSelection) -> (CUShort -> (IO ())))
foreign import ccall unsafe "gtk_color_selection_get_current_color"
gtk_color_selection_get_current_color :: ((Ptr ColorSelection) -> ((Ptr ()) -> (IO ())))
foreign import ccall safe "gtk_color_selection_set_current_color"
gtk_color_selection_set_current_color :: ((Ptr ColorSelection) -> ((Ptr ()) -> (IO ())))
foreign import ccall unsafe "gtk_color_selection_get_has_opacity_control"
gtk_color_selection_get_has_opacity_control :: ((Ptr ColorSelection) -> (IO CInt))
foreign import ccall safe "gtk_color_selection_set_has_opacity_control"
gtk_color_selection_set_has_opacity_control :: ((Ptr ColorSelection) -> (CInt -> (IO ())))
foreign import ccall unsafe "gtk_color_selection_get_has_palette"
gtk_color_selection_get_has_palette :: ((Ptr ColorSelection) -> (IO CInt))
foreign import ccall safe "gtk_color_selection_set_has_palette"
gtk_color_selection_set_has_palette :: ((Ptr ColorSelection) -> (CInt -> (IO ())))
foreign import ccall unsafe "gtk_color_selection_get_previous_alpha"
gtk_color_selection_get_previous_alpha :: ((Ptr ColorSelection) -> (IO CUShort))
foreign import ccall safe "gtk_color_selection_set_previous_alpha"
gtk_color_selection_set_previous_alpha :: ((Ptr ColorSelection) -> (CUShort -> (IO ())))
foreign import ccall unsafe "gtk_color_selection_get_previous_color"
gtk_color_selection_get_previous_color :: ((Ptr ColorSelection) -> ((Ptr ()) -> (IO ())))
foreign import ccall safe "gtk_color_selection_set_previous_color"
gtk_color_selection_set_previous_color :: ((Ptr ColorSelection) -> ((Ptr ()) -> (IO ())))
foreign import ccall unsafe "gtk_color_selection_is_adjusting"
gtk_color_selection_is_adjusting :: ((Ptr ColorSelection) -> (IO CInt))