[Gtk2hs-commit] (main branch): Add new module System.GIO.Icons.FileIcon

[Andy S. <And...@co...>]

diffing dir...
Sun Sep  5 11:34:50 EDT 2010  Andy Stewart <laz...@gm...>
  * Add new module System.GIO.Icons.FileIcon
  Ignore-this: 6cb9b27e5a4b0d14dc995755c20ffd21
    {
    addfile ./gio/System/GIO/Icons/FileIcon.chs
    hunk ./gio/System/GIO/Icons/FileIcon.chs 1
    +{-# LANGUAGE CPP #-}
    +--  GIMP Toolkit (GTK) Binding for Haskell: binding to gio -*-haskell-*-
    +--
    +--  Author : Andy Stewart
    +--  Created: 30-Apirl-2010
    +--
    +--  Copyright (c) 2010 Andy Stewart
    +--
    +--  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 3 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.
    +--  [_$_]
    +--  You should have received a copy of the GNU Lesser General Public
    +--  License along with this program.  If not, see
    +--  <http://www.gnu.org/licenses/>.
    +--  [_$_]
    +--  GIO, the C library which this Haskell library depends on, is
    +--  available under LGPL Version 2. The documentation included with
    +--  this library is based on the original GIO documentation.
    +--  [_$_]
    +-- | Maintainer  : gtk...@li...
    +--   Stability   : alpha
    +--   Portability : portable (depends on GHC)
    +module System.GIO.Icons.FileIcon (
    +-- * Details
    +--
    +-- | 'FileIcon' specifies an icon by pointing to an image file to be used as icon.
    +
    +-- * Types  [_$_]
    +    FileIcon(..),
    +    FileIconClass,
    +
    +-- * Methods
    +    fileIconNew,
    +    fileIconGetFile,
    +    ) where
    +
    +import Control.Monad
    +import System.GIO.Enums
    +import System.Glib.FFI
    +import System.Glib.Flags
    +import System.Glib.GError
    +import System.Glib.GObject
    +import System.Glib.UTFString
    +{#import System.GIO.Types#}
    +
    +{# context lib = "gio" prefix = "g" #}
    +
    +-------------------
    +-- Methods
    +-- | Creates a new icon for a file.
    +fileIconNew :: FileClass file => file -> IO FileIcon
    +fileIconNew file =
    +  {#call g_file_icon_new#} (toFile file)
    +  >>= (constructNewGObject mkFileIcon . return) . castPtr
    +
    +-- | Gets the 'File' associated with the given icon.
    +fileIconGetFile :: FileIconClass icon => icon -> IO File
    +fileIconGetFile icon =
    +  makeNewGObject mkFile $
    +  {#call g_file_icon_get_file#} (toFileIcon icon)
    }