Commit df1d2591 authored by Diederik van Arkel's avatar Diederik van Arkel

support ctrl-doubleclick in typewindow;

parent 7381e3fc
...@@ -68,8 +68,13 @@ controlDoubleClick shiftDown position = ...@@ -68,8 +68,13 @@ controlDoubleClick shiftDown position =
vChangeSelectionTo selection >>> vChangeSelectionTo selection >>>
setSelectMode (SelectWords selection) >>> setSelectMode (SelectWords selection) >>>
accEnv getFBI >>>= \fbi -> accEnv getFBI >>>= \fbi ->
accEnv (accPLoc getTypeWinInfo) >>>= \twi ->
getWindowId >>>= \windowId ->
let let
fbi` = {fbi & kind = if shiftDown Implementation Definition, type = SearchImports} fbi` = { fbi
& kind = if shiftDown Implementation Definition
, type = if (isTypeWindow windowId twi) SearchPaths SearchImports
}
in in
// should make sure single line selection, here or in sr_find_def_imp... // should make sure single line selection, here or in sr_find_def_imp...
// now done above... // now done above...
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment