From 9acf18c503871ba51399b2be947c89145b7e8eda Mon Sep 17 00:00:00 2001 From: "Rene Vergara A." Date: Fri, 11 Oct 2024 20:12:15 -0400 Subject: [PATCH] rvv001 - Shield Zec form updated --- src/Zenith/GUI.hs | 48 ++++++++++++++++++++++++++--------------------- 1 file changed, 27 insertions(+), 21 deletions(-) diff --git a/src/Zenith/GUI.hs b/src/Zenith/GUI.hs index 42f828d..a508c09 100644 --- a/src/Zenith/GUI.hs +++ b/src/Zenith/GUI.hs @@ -975,8 +975,7 @@ buildUI wenv model = widgetTree , filler ] shieldOverlay = - alert CloseShield $ - box + box (vstack [ filler , hstack @@ -991,32 +990,39 @@ buildUI wenv model = widgetTree , separatorLine `styleBasic` [fgColor btnColor] , spacer , hstack - [ label "Amount:" `styleBasic` + [ filler + , label ("Amount : " ) `styleBasic` [width 50, textFont "Bold"] , spacer - , numericField_ - sendAmount - [ decimals 8 - , minValue 0.0 - , maxValue - (fromIntegral (model ^. tBalance) / 100000000.0) - , validInput tBalanceValid - , onChange CheckAmount - ] `styleBasic` - [ width 150 - , styleIf - (not $ model ^. tBalanceValid) - (textColor red) - ] + , label (displayAmount (model ^. network) 100 ) `styleBasic` + [width 50, textFont "Bold"] + , filler +-- , spacer +-- , numericField_ +-- sendAmount +-- [ decimals 8 +-- , minValue 0.0 +-- , maxValue +-- (fromIntegral (model ^. tBalance) / 100000000.0) +-- , validInput tBalanceValid +-- , onChange CheckAmount +-- ] `styleBasic` +-- [ width 150 +-- , styleIf +-- (not $ model ^. tBalanceValid) +-- (textColor red) +-- ] ] , spacer , box_ [alignMiddle] (hstack - [ filler - , mainButton "Proceed" NotImplemented `nodeEnabled` - (model ^. amountValid && model ^. recipientValid) - , filler + [ filler + , mainButton "Proceed" NotImplemented `nodeEnabled` True +-- (model ^. amountValid && model ^. recipientValid) + , spacer + , mainButton "Cancel" CloseShield `nodeEnabled` True + , filler ]) ]) `styleBasic` [radius 4, border 2 btnColor, bgColor white, padding 4]