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

rvv001 - Shield Zec form updated

Browse source
This commit is contained in:
Rene V. Vergara A. 2024-10-11 20:12:15 -04:00
parent 54d9f20fdd
commit 9acf18c503
1 changed files with 27 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

42
src/Zenith/GUI.hs
View file

@ -975,7 +975,6 @@ buildUI wenv model = widgetTree
, filler , filler
] ]
shieldOverlay = shieldOverlay =
alert CloseShield $
box box
(vstack (vstack
[ filler [ filler
@ -991,31 +990,38 @@ buildUI wenv model = widgetTree
, separatorLine `styleBasic` [fgColor btnColor] , separatorLine `styleBasic` [fgColor btnColor]
, spacer , spacer
, hstack , hstack
[ label "Amount:" `styleBasic` [ filler
, label ("Amount : " ) `styleBasic`
[width 50, textFont "Bold"] [width 50, textFont "Bold"]
, spacer , spacer
, numericField_ , label (displayAmount (model ^. network) 100 ) `styleBasic`
sendAmount [width 50, textFont "Bold"]
[ decimals 8 , filler
, minValue 0.0 -- , spacer
, maxValue -- , numericField_
(fromIntegral (model ^. tBalance) / 100000000.0) -- sendAmount
, validInput tBalanceValid -- [ decimals 8
, onChange CheckAmount -- , minValue 0.0
] `styleBasic` -- , maxValue
[ width 150 -- (fromIntegral (model ^. tBalance) / 100000000.0)
, styleIf -- , validInput tBalanceValid
(not $ model ^. tBalanceValid) -- , onChange CheckAmount
(textColor red) -- ] `styleBasic`
] -- [ width 150
-- , styleIf
-- (not $ model ^. tBalanceValid)
-- (textColor red)
-- ]
] ]
, spacer , spacer
, box_ , box_
[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" CloseShield `nodeEnabled` True
, filler , filler
]) ])
]) `styleBasic` ]) `styleBasic`