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