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

GTK: fix some callbacks to listen on the treeView instead of rootWin

Browse Source
This commit is contained in:
Julian Ospald 2015-12-17 17:10:03 +01:00
parent 41f47eea1e
commit 78b6d5e52b
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/GUI/Gtk/Gui.hs
View File

@ -152,17 +152,17 @@ setBindings mygui myview = do
[Control] <- eventModifier [Control] <- eventModifier
"q" <- fmap glibToString eventKeyName "q" <- fmap glibToString eventKeyName
liftIO mainQuit liftIO mainQuit
_ <- rootWin mygui `on` keyPressEvent $ tryEvent $ do _ <- treeView mygui `on` keyPressEvent $ tryEvent $ do
[Control] <- eventModifier [Control] <- eventModifier
"h" <- fmap glibToString eventKeyName "h" <- fmap glibToString eventKeyName
liftIO $ modifyTVarIO (settings mygui) liftIO $ modifyTVarIO (settings mygui)
(\x -> x { showHidden = not . showHidden $ x}) (\x -> x { showHidden = not . showHidden $ x})
>> (refreshTreeView' mygui myview =<< readTVarIO (fsState myview)) >> (refreshTreeView' mygui myview =<< readTVarIO (fsState myview))
_ <- rootWin mygui `on` keyPressEvent $ tryEvent $ do _ <- treeView mygui `on` keyPressEvent $ tryEvent $ do
[Alt] <- eventModifier [Alt] <- eventModifier
"Up" <- fmap glibToString eventKeyName "Up" <- fmap glibToString eventKeyName
liftIO $ upDir mygui myview liftIO $ upDir mygui myview
_ <- rootWin mygui `on` keyPressEvent $ tryEvent $ do _ <- treeView mygui `on` keyPressEvent $ tryEvent $ do
"Delete" <- fmap glibToString eventKeyName "Delete" <- fmap glibToString eventKeyName
liftIO $ onRow Delete mygui myview liftIO $ onRow Delete mygui myview
_ <- treeView mygui `on` rowActivated $ (\_ _ -> onRow Open mygui myview) _ <- treeView mygui `on` rowActivated $ (\_ _ -> onRow Open mygui myview)