    {-# LINE 2 "./Graphics/UI/Gtk/Selectors/FileChooserWidget.chs" #-}
    -- -*-haskell-*-
    -- GIMP Toolkit (GTK) Widget FileChooserWidget
    --
    -- Author : Duncan Coutts
    --
    -- Created: 24 April 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)
    --
    -- File chooser widget that can be embedded in other widgets
    --
    -- * Module available since Gtk+ version 2.4
    --
    module Graphics.UI.Gtk.Selectors.FileChooserWidget (
    -- * Detail
    --
    -- | 'FileChooserWidget' is a widget suitable for selecting files. It is the
    -- main building block of a 'FileChooserDialog'. Most applications will only
    -- need to use the latter; you can use 'FileChooserWidget' as part of a larger
    -- window if you have special needs.
    --
    -- Note that 'FileChooserWidget' does not have any methods of its own.
    -- Instead, you should use the functions that work on a 'FileChooser'.

    -- * Class Hierarchy
    -- |
    -- @
    -- | 'GObject'
    -- | +----'Object'
    -- | +----'Widget'
    -- | +----'Container'
    -- | +----'Box'
    -- | +----'VBox'
    -- | +----FileChooserWidget
    -- @

    -- * Types
      FileChooserWidget,
      FileChooserWidgetClass,
      castToFileChooserWidget, gTypeFileChooserWidget,
      toFileChooserWidget,

    -- * Constructors
      FileChooserAction,
      fileChooserWidgetNew,

      ) where

    import Control.Monad (liftM)

    import System.Glib.FFI
    import Graphics.UI.Gtk.Abstract.Object
    import Graphics.UI.Gtk.Types
    {-# LINE 74 "./Graphics/UI/Gtk/Selectors/FileChooserWidget.chs" #-}

    import Graphics.UI.Gtk.Selectors.FileChooser (FileChooserAction)

    {-# LINE 79 "./Graphics/UI/Gtk/Selectors/FileChooserWidget.chs" #-}

    --------------------
    -- Interfaces

    instance FileChooserClass FileChooserWidget

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

    -- | Creates a new 'FileChooserWidget'. This is a file chooser widget that can
    -- be embedded in custom windows, and it is the same widget that is used by
    -- 'FileChooserDialog'.
    --
    fileChooserWidgetNew ::
        FileChooserAction -- ^ @action@ - Open or save mode for the widget
     -> IO FileChooserWidget
    fileChooserWidgetNew :: FileChooserAction -> IO FileChooserWidget
    fileChooserWidgetNew FileChooserAction
    action =
      (ForeignPtr FileChooserWidget -> FileChooserWidget,
     FinalizerPtr FileChooserWidget)
    -> IO (Ptr FileChooserWidget) -> IO FileChooserWidget
    forall obj.
    GObjectClass obj =>
    (ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
    makeNewObject (ForeignPtr FileChooserWidget -> FileChooserWidget,
     FinalizerPtr FileChooserWidget)
    forall {a}.
    (ForeignPtr FileChooserWidget -> FileChooserWidget, FinalizerPtr a)
    mkFileChooserWidget (IO (Ptr FileChooserWidget) -> IO FileChooserWidget)
    -> IO (Ptr FileChooserWidget) -> IO FileChooserWidget
    forall a b. (a -> b) -> a -> b
    $
      (Ptr Widget -> Ptr FileChooserWidget)
    -> IO (Ptr Widget) -> IO (Ptr FileChooserWidget)
    forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
    liftM (Ptr Widget -> Ptr FileChooserWidget
    forall a b. Ptr a -> Ptr b
    castPtr :: Ptr Widget -> Ptr FileChooserWidget) (IO (Ptr Widget) -> IO (Ptr FileChooserWidget))
    -> IO (Ptr Widget) -> IO (Ptr FileChooserWidget)
    forall a b. (a -> b) -> a -> b
    $
      CInt -> IO (Ptr Widget)
    gtk_file_chooser_widget_new
    {-# LINE 99 "./Graphics/UI/Gtk/Selectors/FileChooserWidget.chs" #-}
        ((fromIntegral . fromEnum) action)

    foreign import ccall unsafe "gtk_file_chooser_widget_new"
      gtk_file_chooser_widget_new :: (CInt -> (IO (Ptr Widget)))