22 lines
700 B
Haskell
22 lines
700 B
Haskell
{-# LANGUAGE ImplicitParams #-}
|
|
{-# LANGUAGE OverloadedLabels #-}
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
import Control.Concurrent
|
|
import GI.Gtk
|
|
import GI.Gio hiding (Application)
|
|
|
|
main :: IO ()
|
|
main = do
|
|
app <- new Application []
|
|
onApplicationActivate app $ do
|
|
dlg <- new FileDialog [fileDialogInitialFolder :=> fileNewForPath "/"]
|
|
|
|
window <- new GI.Gtk.ApplicationWindow [#application := app,
|
|
#title := "Wazajisho"]
|
|
|
|
fileDialogSelectFolder dlg (Just window) (Nothing :: Maybe Cancellable)
|
|
|
|
|
|
applicationRun app Nothing
|
|
threadDelay 30000000000
|
|
|