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

rvv001 - Shield - Deshield process

Browse source 
DeShield form  -  Cancel button moved  to the right of process button
This commit is contained in:
Rene V. Vergara A. 2024-10-11 21:01:50 -04:00
parent 9acf18c503
commit 324ed663c3
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/Zenith/GUI.hs
View file

@ -1032,7 +1032,6 @@ buildUI wenv model = widgetTree
]) `styleBasic`
[bgColor (white & L.a .~ 0.5)]
deShieldOverlay =
alert CloseDeShield $
box
(vstack
[ filler
@ -1081,8 +1080,10 @@ buildUI wenv model = widgetTree
[alignMiddle]
(hstack
[ filler
, mainButton "Proceed" NotImplemented `nodeEnabled`
(model ^. amountValid && model ^. recipientValid)
, mainButton "Proceed" NotImplemented `nodeEnabled` True
-- (model ^. amountValid && model ^. recipientValid)
, spacer
, mainButton "Cancel" CloseDeShield `nodeEnabled` True
, filler
])
]) `styleBasic`