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

Milestone 2: Graphic User Interface #93

Merged
pitmutt merged 38 commits from milestone2 into master 2024-07-17 14:28:52 +00:00
Conversation 0 Commits 38 Files changed 31 +4 -2
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit 96c9df571e - Show all commits

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 $