Vergara_Tech/zenith
Vergara_Tech/zenith
2
0
Fork 0
Code Issues 32 Pull requests Projects Releases 6 Packages Wiki Activity

Ensure dialog closes after Tx send

Browse source
This commit is contained in:
Rene Vergara 2024-07-10 13:48:54 -05:00
parent c69d4f9974
commit 96c9df571e
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Zenith/GUI.hs
View file

@ -866,10 +866,11 @@ handleEvent wenv node model evt =
ShowSend -> [Model $ model & openSend .~ True] ShowSend -> [Model $ model & openSend .~ True]
SendTx -> SendTx ->
case currentAccount of case currentAccount of
Nothing -> [Event $ ShowError "No account available"] Nothing -> [Event $ ShowError "No account available", Event CancelSend]
Just acc -> Just acc ->
case currentWallet of case currentWallet of
Nothing -> [Event $ ShowError "No wallet available"] Nothing ->
[Event $ ShowError "No wallet available", Event CancelSend]
Just wal -> Just wal ->
[ Producer $ [ Producer $
sendTransaction sendTransaction
@ -880,6 +881,7 @@ handleEvent wenv node model evt =
(model ^. sendAmount) (model ^. sendAmount)
(model ^. sendRecipient) (model ^. sendRecipient)
(model ^. sendMemo) (model ^. sendMemo)
, Event CancelSend
] ]
CancelSend -> CancelSend ->
[ Model $ [ Model $