32 lines
839 B
Haskell
32 lines
839 B
Haskell
|
{-# OPTIONS_HADDOCK ignore-exports #-}
|
||
|
|
||
|
module GUI.Gtk.Icons where
|
||
|
|
||
|
|
||
|
import Graphics.UI.Gtk
|
||
|
import Graphics.UI.Gtk.Gdk.Pixbuf
|
||
|
|
||
|
|
||
|
-- |Icon type we use in our GUI.
|
||
|
data GtkIcon = IFolder
|
||
|
| IFile
|
||
|
| IError
|
||
|
|
||
|
|
||
|
-- |Gets an icon from the default icon theme and falls back to project-icons
|
||
|
-- if not found. The requested icon size is not guaranteed.
|
||
|
getIcon :: GtkIcon -- ^ icon we want
|
||
|
-> Int -- ^ requested icon size
|
||
|
-> IO Pixbuf
|
||
|
getIcon icon isize = do
|
||
|
let iname = iconToStr icon
|
||
|
iT <- iconThemeGetDefault
|
||
|
mpix <- iconThemeLoadIcon iT iname isize IconLookupUseBuiltin
|
||
|
case mpix of
|
||
|
Just pix -> return pix
|
||
|
Nothing -> pixbufNewFromFile ("data/Gtk/icons/" ++ iname)
|
||
|
where
|
||
|
iconToStr IFolder = "gtk-directory"
|
||
|
iconToStr IFile = "gtk-file"
|
||
|
iconToStr IError = "error"
|