Milestone 2: Graphic User Interface #93

Merged
pitmutt merged 38 commits from milestone2 into master 2024-07-17 14:28:52 +00:00
Showing only changes of commit 96c9df571e - Show all commits

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 $