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

GTK: fix show/hide hidden files

Browse Source
This commit is contained in:
Julian Ospald 2015-12-24 14:45:30 +01:00
parent e160f340ec
commit d184b82648
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/GUI/Gtk/Callbacks.hs
View File

@ -70,7 +70,7 @@ setCallbacks mygui myview = do
mcdir <- liftIO $ getFirstRow myview mcdir <- liftIO $ getFirstRow myview
liftIO $ modifyTVarIO (settings mygui) liftIO $ modifyTVarIO (settings mygui)
(\x -> x { showHidden = not . showHidden $ x}) (\x -> x { showHidden = not . showHidden $ x})
>> refreshTreeView' mygui myview mcdir >> (refreshTreeView' mygui myview =<< goUp mcdir)
_ <- treeView mygui `on` keyPressEvent $ tryEvent $ do _ <- treeView mygui `on` keyPressEvent $ tryEvent $ do
[Alt] <- eventModifier [Alt] <- eventModifier
"Up" <- fmap glibToString eventKeyName "Up" <- fmap glibToString eventKeyName