Make input dialog generic
This commit is contained in:
parent
67e303af38
commit
488a01c46d
1 changed files with 13 additions and 2 deletions
|
@ -20,6 +20,7 @@ import Brick.Forms
|
|||
, handleFormEvent
|
||||
, newForm
|
||||
, renderForm
|
||||
, updateFormState
|
||||
)
|
||||
import qualified Brick.Main as M
|
||||
import qualified Brick.Types as BT
|
||||
|
@ -215,8 +216,18 @@ appEvent (BT.VtyEvent e) = do
|
|||
V.EvKey (V.KChar '\t') [] -> focusRing %= F.focusNext
|
||||
V.EvKey (V.KChar 'q') [] -> M.halt
|
||||
V.EvKey (V.KChar '?') [] -> BT.modify $ set helpBox True
|
||||
V.EvKey (V.KChar 'w') [] -> BT.modify $ set dialogBox WName
|
||||
V.EvKey (V.KChar 'a') [] -> BT.modify $ set dialogBox AName
|
||||
V.EvKey (V.KChar 'w') [] -> do
|
||||
BT.modify $
|
||||
set inputForm $
|
||||
updateFormState (DialogInput "New Wallet") $
|
||||
s ^. inputForm
|
||||
BT.modify $ set dialogBox WName
|
||||
V.EvKey (V.KChar 'a') [] -> do
|
||||
BT.modify $
|
||||
set inputForm $
|
||||
updateFormState (DialogInput "New Account") $
|
||||
s ^. inputForm
|
||||
BT.modify $ set dialogBox AName
|
||||
ev ->
|
||||
case r of
|
||||
Just AList -> BT.zoom addresses $ L.handleListEvent ev
|
||||
|
|
Loading…
Reference in a new issue