parent
ccc2f6f331
commit
c6efdedf2d
@ -17,6 +17,7 @@ data-files: data/Gtk/builder.xml
|
|||||||
data/Gtk/icons/gtk-directory.png
|
data/Gtk/icons/gtk-directory.png
|
||||||
data/Gtk/icons/gtk-file.png
|
data/Gtk/icons/gtk-file.png
|
||||||
data/Gtk/icons/hsfm.png
|
data/Gtk/icons/hsfm.png
|
||||||
|
hsfm.cabal
|
||||||
LICENSE
|
LICENSE
|
||||||
|
|
||||||
|
|
||||||
|
@ -84,6 +84,10 @@ import IO.Error
|
|||||||
import IO.File
|
import IO.File
|
||||||
import IO.Utils
|
import IO.Utils
|
||||||
import MyPrelude
|
import MyPrelude
|
||||||
|
import Paths_hsfm
|
||||||
|
(
|
||||||
|
getDataFileName
|
||||||
|
)
|
||||||
import Safe
|
import Safe
|
||||||
(
|
(
|
||||||
headDef
|
headDef
|
||||||
@ -160,7 +164,7 @@ startMainWindow startdir = do
|
|||||||
operationBuffer <- newTVarIO None
|
operationBuffer <- newTVarIO None
|
||||||
|
|
||||||
builder <- builderNew
|
builder <- builderNew
|
||||||
builderAddFromFile builder "data/Gtk/builder.xml"
|
builderAddFromFile builder =<< getDataFileName "data/Gtk/builder.xml"
|
||||||
|
|
||||||
-- get the pre-defined gui widgets
|
-- get the pre-defined gui widgets
|
||||||
rootWin <- builderGetObject builder castToWindow
|
rootWin <- builderGetObject builder castToWindow
|
||||||
@ -288,6 +292,6 @@ startMainWindow startdir = do
|
|||||||
containerAdd scroll treeView
|
containerAdd scroll treeView
|
||||||
|
|
||||||
-- sets the default icon
|
-- sets the default icon
|
||||||
windowSetDefaultIconFromFile "data/Gtk/icons/hsfm.png"
|
windowSetDefaultIconFromFile =<< getDataFileName "data/Gtk/icons/hsfm.png"
|
||||||
|
|
||||||
widgetShowAll rootWin
|
widgetShowAll rootWin
|
||||||
|
@ -63,7 +63,10 @@ import Graphics.UI.Gtk
|
|||||||
import GUI.Gtk.Data
|
import GUI.Gtk.Data
|
||||||
import IO.Error
|
import IO.Error
|
||||||
import IO.File
|
import IO.File
|
||||||
|
import Paths_hsfm
|
||||||
|
(
|
||||||
|
getDataFileName
|
||||||
|
)
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
@ -143,9 +146,11 @@ withCopyModeDialog fa =
|
|||||||
showAboutDialog :: IO ()
|
showAboutDialog :: IO ()
|
||||||
showAboutDialog = do
|
showAboutDialog = do
|
||||||
ad <- aboutDialogNew
|
ad <- aboutDialogNew
|
||||||
lstr <- readFile "LICENSE"
|
lstr <- readFile =<< getDataFileName "LICENSE"
|
||||||
hsfmicon <- pixbufNewFromFile "data/Gtk/icons/hsfm.png"
|
hsfmicon <- pixbufNewFromFile =<< getDataFileName "data/Gtk/icons/hsfm.png"
|
||||||
pdesc <- packageDescription <$> readPackageDescription silent "hsfm.cabal"
|
pdesc <- fmap packageDescription
|
||||||
|
(readPackageDescription silent
|
||||||
|
=<< getDataFileName "hsfm.cabal")
|
||||||
set ad
|
set ad
|
||||||
[ aboutDialogProgramName := (unPackageName . pkgName . package) pdesc
|
[ aboutDialogProgramName := (unPackageName . pkgName . package) pdesc
|
||||||
, aboutDialogName := (unPackageName . pkgName . package) pdesc
|
, aboutDialogName := (unPackageName . pkgName . package) pdesc
|
||||||
|
@ -24,6 +24,10 @@ module GUI.Gtk.Icons where
|
|||||||
|
|
||||||
import Graphics.UI.Gtk
|
import Graphics.UI.Gtk
|
||||||
import Graphics.UI.Gtk.Gdk.Pixbuf
|
import Graphics.UI.Gtk.Gdk.Pixbuf
|
||||||
|
import Paths_hsfm
|
||||||
|
(
|
||||||
|
getDataFileName
|
||||||
|
)
|
||||||
|
|
||||||
|
|
||||||
-- |Icon type we use in our GUI.
|
-- |Icon type we use in our GUI.
|
||||||
@ -44,7 +48,7 @@ getIcon icon itheme isize = do
|
|||||||
mpix <- iconThemeLoadIcon itheme iname isize IconLookupUseBuiltin
|
mpix <- iconThemeLoadIcon itheme iname isize IconLookupUseBuiltin
|
||||||
case mpix of
|
case mpix of
|
||||||
Just pix -> return pix
|
Just pix -> return pix
|
||||||
Nothing -> pixbufNewFromFile ("data/Gtk/icons/" ++ iname)
|
Nothing -> pixbufNewFromFile =<< getDataFileName ("data/Gtk/icons/" ++ iname)
|
||||||
where
|
where
|
||||||
iconToStr IFolder = "gtk-directory"
|
iconToStr IFolder = "gtk-directory"
|
||||||
iconToStr IFile = "gtk-file"
|
iconToStr IFile = "gtk-file"
|
||||||
|
Loading…
Reference in New Issue
Block a user