slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

imp: ui: don't use top margin as a click target yet

Browse Source
This commit is contained in:
Simon Michael 2021-11-18 23:01:52 -10:00
parent b4254f41c6
commit f5cfcf827d
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger-ui/Hledger/UI/RegisterScreen.hs
View File

@ -353,8 +353,8 @@ rsHandle ui@UIState{
-- exit screen on LEFT -- exit screen on LEFT
VtyEvent e | e `elem` moveLeftEvents -> continue $ popScreen ui VtyEvent e | e `elem` moveLeftEvents -> continue $ popScreen ui
-- or on a click in the app's left or top margin. This is a VtyEvent since not in a clickable widget. -- or on a click in the app's left margin. This is a VtyEvent since not in a clickable widget.
VtyEvent (EvMouseUp x y (Just BLeft)) | x==0 || y==0 -> continue $ popScreen ui VtyEvent (EvMouseUp x _y (Just BLeft)) | x==0 -> continue $ popScreen ui
-- enter transaction screen on RIGHT -- enter transaction screen on RIGHT
VtyEvent e | e `elem` moveRightEvents -> VtyEvent e | e `elem` moveRightEvents ->

4
hledger-ui/Hledger/UI/TransactionScreen.hs
View File

@ -184,8 +184,8 @@ tsHandle ui@UIState{aScreen=TransactionScreen{tsTransaction=(i,t), tsTransaction
-- exit screen on LEFT -- exit screen on LEFT
VtyEvent e | e `elem` moveLeftEvents -> continue . popScreen $ tsSelect i t ui -- Probably not necessary to tsSelect here, but it's safe. VtyEvent e | e `elem` moveLeftEvents -> continue . popScreen $ tsSelect i t ui -- Probably not necessary to tsSelect here, but it's safe.
-- or on a click in the app's left or top margin. This is a VtyEvent since not in a clickable widget. -- or on a click in the app's left margin. This is a VtyEvent since not in a clickable widget.
VtyEvent (EvMouseUp x y (Just BLeft)) | x==0 || y==0 -> continue . popScreen $ tsSelect i t ui VtyEvent (EvMouseUp x _y (Just BLeft)) | x==0 -> continue . popScreen $ tsSelect i t ui
VtyEvent (EvKey (KChar 'l') [MCtrl]) -> redraw ui VtyEvent (EvKey (KChar 'l') [MCtrl]) -> redraw ui
VtyEvent (EvKey (KChar 'z') [MCtrl]) -> suspend ui VtyEvent (EvKey (KChar 'z') [MCtrl]) -> suspend ui