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

2016-06-01 22:26:32 +02:00
parent 9549b40745
commit d14caf5269
1 changed files with 2 additions and 1 deletions
--- a/src/HSFM/GUI/Gtk/Callbacks.hs
+++ b/src/HSFM/GUI/Gtk/Callbacks.hs
@@ -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 ()