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

rvv041 - Address Book - New entry form working correctly

Browse source 
- Show entry zec address on row click
This commit is contained in:
Rene V. Vergara A. 2024-09-05 22:19:41 -04:00
parent b3df16f217
commit dee0a7e8e8
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/Zenith/GUI.hs
View file

@ -814,7 +814,7 @@ buildUI wenv model = widgetTree
abookRow :: Int -> Entity AddressBook -> WidgetNode AppModel AppEvent abookRow :: Int -> Entity AddressBook -> WidgetNode AppModel AppEvent
abookRow idx ab = abookRow idx ab =
box_ box_
[onClick $ ShowTx idx, alignLeft] [onClick $ ShowMessage (addressBookAbaddress $ entityVal ab), alignLeft]
(hstack (hstack
[ [
label label
@ -865,7 +865,7 @@ buildUI wenv model = widgetTree
, button "Cancel" CloseNewAdrBook `nodeEnabled` True , button "Cancel" CloseNewAdrBook `nodeEnabled` True
] ]
] ]
msgAdrBookOverlay= msgAdrBookOverlay =
alert CloseMsgAB $ alert CloseMsgAB $
hstack hstack
[ filler [ filler
@ -873,7 +873,7 @@ buildUI wenv model = widgetTree
[textSize 32, textColor btnColor] `nodeVisible` [textSize 32, textColor btnColor] `nodeVisible`
(model ^. inError) (model ^. inError)
, spacer , spacer
, label $ fromMaybe "" (model ^. msgAB) , label_ (txtWrapN (fromMaybe "" (model ^. msgAB)) 64) [multiline]
, filler , filler
] ]
@ -1200,6 +1200,7 @@ handleEvent wenv node model evt =
[Model $ model & newAdrBkEntry .~ False] [Model $ model & newAdrBkEntry .~ False]
SaveNewABEntry -> SaveNewABEntry ->
[ Task $ saveAddrBook (model ^. configuration) (ZcashNetDB (model ^. network)) (model ^. abdescrip) (model ^. abaddress) [ Task $ saveAddrBook (model ^. configuration) (ZcashNetDB (model ^. network)) (model ^. abdescrip) (model ^. abaddress)
, Model $ model & abdescrip .~ "" & abaddress .~ "" & newAdrBkEntry .~ False
] ]
NotImplemented -> [Model $ model & msgAB ?~ "Function not implemented..." & menuPopup .~ False] NotImplemented -> [Model $ model & msgAB ?~ "Function not implemented..." & menuPopup .~ False]
CloseMsgAB -> [Model $ model & msgAB .~ Nothing & inError .~ False] CloseMsgAB -> [Model $ model & msgAB .~ Nothing & inError .~ False]
@ -1413,6 +1414,9 @@ timeTicker sendMsg = do
threadDelay $ 1000 * 1000 threadDelay $ 1000 * 1000
timeTicker sendMsg timeTicker sendMsg
txtWrapN :: T.Text -> Int -> T.Text
txtWrapN t n = wrapText (WrapSettings False True NoFill FillAfterFirst) n t
txtWrap :: T.Text -> T.Text txtWrap :: T.Text -> T.Text
txtWrap = wrapText (WrapSettings False True NoFill FillAfterFirst) 32 txtWrap = wrapText (WrapSettings False True NoFill FillAfterFirst) 32