hasufell
/
hsfm
1
1
Fork 0
Code Issues 33 Pull Requests Releases Wiki Activity

GTK: formatting and comments

This commit is contained in:
Julian Ospald 2016-04-20 17:59:55 +02:00
parent 0ff24002e5
commit a4c8995299
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/HSFM/GUI/Gtk/Data.hs
View File

@ -112,7 +112,7 @@ data FilePropertyGrid = MkFilePropertyGrid {
, fpropTsEntry :: !Entry , fpropTsEntry :: !Entry
, fpropModEntry :: !Entry , fpropModEntry :: !Entry
, fpropAcEntry :: !Entry , fpropAcEntry :: !Entry
, fpropFTEntry :: !Entry , fpropFTEntry :: !Entry
, fpropPermEntry :: !Entry , fpropPermEntry :: !Entry
, fpropLDEntry :: !Entry , fpropLDEntry :: !Entry
} }

3
src/HSFM/GUI/Gtk/Dialogs.hs
View File

@ -268,7 +268,8 @@ showFilePropertyDialog [item] mygui _ = do
entrySetText (fpropModEntry fprop') (packModTime item) entrySetText (fpropModEntry fprop') (packModTime item)
entrySetText (fpropAcEntry fprop') (packAccessTime item) entrySetText (fpropAcEntry fprop') (packAccessTime item)
entrySetText (fpropFTEntry fprop') (packFileType item) entrySetText (fpropFTEntry fprop') (packFileType item)
entrySetText (fpropPermEntry fprop') (tail $ packPermissions item) entrySetText (fpropPermEntry fprop')
(tail $ packPermissions item) -- throw away the filetype part
case packLinkDestination item of case packLinkDestination item of
(Just dest) -> do (Just dest) -> do
widgetSetSensitive (fpropLDEntry fprop') True widgetSetSensitive (fpropLDEntry fprop') True