Add base addressbook to GUI #102
1 changed files with 4 additions and 1 deletions
|
@ -1256,7 +1256,10 @@ handleEvent wenv node model evt =
|
|||
CheckValidAddress a ->
|
||||
[Model $ model & abAddressValid .~ isRecipientValid a]
|
||||
CheckValidDescrip a -> [Model $ model & abDescripValid .~ isValidString a]
|
||||
ShowAdrBook -> [Model $ model & showAdrBook .~ True & menuPopup .~ False]
|
||||
ShowAdrBook ->
|
||||
if null (model ^. abaddressList)
|
||||
then [Model $ model & newAdrBkEntry .~ True & menuPopup .~ False]
|
||||
else [Model $ model & showAdrBook .~ True & menuPopup .~ False]
|
||||
CloseAdrBook -> [Model $ model & showAdrBook .~ False]
|
||||
NewAdrBkEntry ->
|
||||
[Model $ model & newAdrBkEntry .~ True & menuPopup .~ False]
|
||||
|
|
Loading…
Reference in a new issue