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

GTK: don't allow new-tab middle-click on non-directories

Browse Source
This commit is contained in:
Julian Ospald 2016-06-01 22:26:32 +02:00
parent 9549b40745
commit d14caf5269
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -349,8 +349,9 @@ closeTab mygui myview = do
newTabHere :: MyGUI -> Item -> IO ()
newTabHere mygui item =
newTabHere mygui item@(DirOrSym _) =
void $ newTab mygui createTreeView (path item)
newTabHere _ _ = return ()