hsfm/src/HSFM/GUI/Gtk.hs

63 lines
1.3 KiB
Haskell
Raw Normal View History

2015-12-24 17:25:05 +00:00
{--
HSFM, a filemanager written in Haskell.
Copyright (C) 2015 Julian Ospald
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
version 2 as published by the Free Software Foundation.
This program 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 General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
--}
2015-12-17 03:42:22 +00:00
{-# OPTIONS_HADDOCK ignore-exports #-}
module Main where
import Data.Maybe
(
fromJust
, fromMaybe
)
2015-12-17 03:42:22 +00:00
import Graphics.UI.Gtk
import qualified HPath as P
2016-03-30 18:16:34 +00:00
import HSFM.GUI.Gtk.Data
import HSFM.GUI.Gtk.MyGUI
import HSFM.GUI.Gtk.MyView
import Safe
(
headDef
)
import System.Environment
(
getArgs
)
2015-12-17 03:42:22 +00:00
main :: IO ()
main = do
_ <- initGUI
args <- getArgs
mygui <- createMyGUI
2015-12-23 15:14:38 +00:00
myview <- createMyView mygui createTreeView
2015-12-23 15:14:38 +00:00
let mdir = fromMaybe (fromJust $ P.parseAbs "/")
(P.parseAbs $ headDef "/" args)
refreshView mygui myview (Just $ mdir)
2015-12-23 15:14:38 +00:00
widgetShowAll (rootWin mygui)
2015-12-23 15:14:38 +00:00
_ <- mainGUI
return ()
2015-12-24 16:44:42 +00:00