hsfm/src/GUI/Gtk.hs

55 lines
1.1 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
2015-12-17 03:42:22 +00:00
import Graphics.UI.Gtk
2015-12-23 15:14:38 +00:00
import GUI.Gtk.Data
import GUI.Gtk.MyGUI
import 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
refreshView mygui myview (Just $ headDef "/" args)
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