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

GTK: improve history navigation

Browse Source 
* increase maximum numbers of items in the history
* empty the "forward" history if we enter a directory
  via normal navigation
This commit is contained in:
Julian Ospald 2016-04-20 17:20:04 +02:00
parent d432c2146b
commit 7608d838aa
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -464,7 +464,7 @@ goDir :: MyGUI -> MyView -> Item -> IO ()
goDir mygui myview item = do goDir mygui myview item = do
cdir <- getCurrentDir myview cdir <- getCurrentDir myview
modifyTVarIO (history myview) modifyTVarIO (history myview)
(\(p, n) -> (path cdir `addHistory` p, n)) (\(p, _) -> (path cdir `addHistory` p, []))
refreshView' mygui myview item refreshView' mygui myview item

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

@ -157,5 +157,5 @@ addHistory i xs
| length xs == maxLength = i : take (maxLength - 1) xs | length xs == maxLength = i : take (maxLength - 1) xs
| otherwise = i : xs | otherwise = i : xs
where where
maxLength = 5 maxLength = 10