unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-09-25 17:27:52 +03:00
Code Issues Projects Releases Wiki Activity

fixed issue with click handling of explorer being to eager in accepting the selection

Browse Source
This commit is contained in:
Paul Chiusano 2015-04-12 10:32:05 -04:00
parent aa336af909
commit 7cea6af72b
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
editor/src/Unison/TermExplorer.elm
View File

@ -148,7 +148,8 @@ model searchbox =
Moore { selection = Nothing, request = Nothing, view = Layout.element layout' }
(search admissible env focus completions sel content infoLayout layout')
-- if click is on a selectable region, we accept it
Just _ -> search admissible env focus completions sel content infoLayout layout' Enter
Just _ -> Layout.leafAtPoint layout' (Layout.ptFromPair xy) `Maybe.andThen` \i -> i `Maybe.andThen` \_ ->
search admissible env focus completions sel content infoLayout layout' Enter
FieldContent content -> Just <| case { completions | literals <- parseSearchbox admissible content.string } of
completions ->
let