GTK: improve file property dialog

Adds the following fields:
* file type
* permissions
* link destination of symlink (if applicable)

src/HSFM/GUI/Gtk/Data.hs

@@ -106,12 +106,15 @@ data RightClickMenu = MkRightClickMenu {
 }
 
 data FilePropertyGrid = MkFilePropertyGrid {
-    fpropGrid     :: !Grid
-  , fpropFnEntry  :: !Entry
-  , fpropLocEntry :: !Entry
-  , fpropTsEntry  :: !Entry
-  , fpropModEntry :: !Entry
-  , fpropAcEntry  :: !Entry
+    fpropGrid           :: !Grid
+  , fpropFnEntry        :: !Entry
+  , fpropLocEntry       :: !Entry
+  , fpropTsEntry        :: !Entry
+  , fpropModEntry       :: !Entry
+  , fpropAcEntry        :: !Entry
+  , fpropFTEntry  :: !Entry
+  , fpropPermEntry      :: !Entry
+  , fpropLDEntry        :: !Entry
 }
 
 

src/HSFM/GUI/Gtk/Dialogs.hs

@@ -267,6 +267,16 @@ showFilePropertyDialog [item] mygui _ = do
   entrySetText (fpropTsEntry fprop')  (fromFreeVar (show . fileSize) item)
   entrySetText (fpropModEntry fprop') (packModTime item)
   entrySetText (fpropAcEntry fprop')  (packAccessTime item)
+  entrySetText (fpropFTEntry fprop')  (packFileType item)
+  entrySetText (fpropPermEntry fprop') (tail $ packPermissions item)
+  case packLinkDestination item of
+    (Just dest) -> do
+      widgetSetSensitive (fpropLDEntry fprop') True
+      entrySetText (fpropLDEntry fprop') dest
+    Nothing     -> do
+      widgetSetSensitive (fpropLDEntry fprop') False
+      entrySetText (fpropLDEntry fprop') "( Not a symlink )"
+
 
   cbox <- dialogGetActionArea dialog
   _ <- dialogAddButton dialog "Ok"     (ResponseUser 0)

src/HSFM/GUI/Gtk/MyGUI.hs

@@ -126,6 +126,12 @@ createMyGUI = do
                        "fpropModEntry"
   fpropAcEntry      <- builderGetObject builder castToEntry
                        "fpropAcEntry"
+  fpropFTEntry      <- builderGetObject builder castToEntry
+                       "fpropFTEntry"
+  fpropPermEntry    <- builderGetObject builder castToEntry
+                       "fpropPermEntry"
+  fpropLDEntry      <- builderGetObject builder castToEntry
+                       "fpropLDEntry"
 
   -- construct the gui object
   let menubar = MkMenuBar {..}