    {-# LINE 2 "./Graphics/UI/Gtk/Selectors/ColorSelectionDialog.chs" #-}
    -- -*-haskell-*-
    -- GIMP Toolkit (GTK) Widget ColorSelectionDialog
    --
    -- Author : Duncan Coutts
    --
    -- Created: 2 August 2004
    --
    -- Copyright (C) 2004-2005 Duncan Coutts
    --
    -- This library is free software; you can redistribute it and/or
    -- modify it under the terms of the GNU Lesser General Public
    -- License as published by the Free Software Foundation; either
    -- version 2.1 of the License, or (at your option) any later version.
    --
    -- This library is distributed in the hope that it will be useful,
    -- but WITHOUT ANY WARRANTY; without even the implied warranty of
    -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
    -- Lesser General Public License for more details.
    --
    -- |
    -- Maintainer : gtk2hs-users@lists.sourceforge.net
    -- Stability : provisional
    -- Portability : portable (depends on GHC)
    --
    -- A standard dialog box for selecting a color
    --
    module Graphics.UI.Gtk.Selectors.ColorSelectionDialog (
    -- * Detail
    --
    -- | The 'ColorSelectionDialog' provides a standard dialog which allows the
    -- user to select a color much like the 'FileSelection' provides a standard
    -- dialog for file selection.

    -- * Class Hierarchy
    -- |
    -- @
    -- | 'GObject'
    -- | +----'Object'
    -- | +----'Widget'
    -- | +----'Container'
    -- | +----'Bin'
    -- | +----'Window'
    -- | +----'Dialog'
    -- | +----ColorSelectionDialog
    -- @

    -- * Types
      ColorSelectionDialog,
      ColorSelectionDialogClass,
      castToColorSelectionDialog, gTypeColorSelectionDialog,
      toColorSelectionDialog,

    -- * Constructors
      colorSelectionDialogNew,

    -- * Methods

      ) where

    import Control.Monad (liftM)

    import System.Glib.FFI
    import System.Glib.UTFString
    import Graphics.UI.Gtk.Abstract.Object (makeNewObject)
    import Graphics.UI.Gtk.Types
    {-# LINE 72 "./Graphics/UI/Gtk/Selectors/ColorSelectionDialog.chs" #-}

    {-# LINE 80 "./Graphics/UI/Gtk/Selectors/ColorSelectionDialog.chs" #-}

    --------------------
    -- Constructors

    -- | Creates a new 'ColorSelectionDialog'.
    --
    colorSelectionDialogNew :: GlibString string
     => string -- ^ @title@ - a string containing the title text
                                -- for the dialog.
     -> IO ColorSelectionDialog
    colorSelectionDialogNew :: forall string.
    GlibString string =>
    string -> IO ColorSelectionDialog
    colorSelectionDialogNew string
    title =
      (ForeignPtr ColorSelectionDialog -> ColorSelectionDialog,
     FinalizerPtr ColorSelectionDialog)
    -> IO (Ptr ColorSelectionDialog) -> IO ColorSelectionDialog
    forall obj.
    GObjectClass obj =>
    (ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
    makeNewObject (ForeignPtr ColorSelectionDialog -> ColorSelectionDialog,
     FinalizerPtr ColorSelectionDialog)
    forall {a}.
    (ForeignPtr ColorSelectionDialog -> ColorSelectionDialog,
     FinalizerPtr a)
    mkColorSelectionDialog (IO (Ptr ColorSelectionDialog) -> IO ColorSelectionDialog)
    -> IO (Ptr ColorSelectionDialog) -> IO ColorSelectionDialog
    forall a b. (a -> b) -> a -> b
    $
      (Ptr Widget -> Ptr ColorSelectionDialog)
    -> IO (Ptr Widget) -> IO (Ptr ColorSelectionDialog)
    forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
    liftM (Ptr Widget -> Ptr ColorSelectionDialog
    forall a b. Ptr a -> Ptr b
    castPtr :: Ptr Widget -> Ptr ColorSelectionDialog) (IO (Ptr Widget) -> IO (Ptr ColorSelectionDialog))
    -> IO (Ptr Widget) -> IO (Ptr ColorSelectionDialog)
    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
    title ((CString -> IO (Ptr Widget)) -> IO (Ptr Widget))
    -> (CString -> IO (Ptr Widget)) -> IO (Ptr Widget)
    forall a b. (a -> b) -> a -> b
    $ \CString
    titlePtr ->
      CString -> IO (Ptr Widget)
    gtk_color_selection_dialog_new
    {-# LINE 95 "./Graphics/UI/Gtk/Selectors/ColorSelectionDialog.chs" #-}
        titlePtr

    foreign import ccall unsafe "gtk_color_selection_dialog_new"
      gtk_color_selection_dialog_new :: ((Ptr CChar) -> (IO (Ptr Widget)))