Add fileDialog.hs

fileDialog.hs

@@ -0,0 +1,22 @@
+{-# 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
+