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

RPC Server #103

Merged
pitmutt merged 129 commits from rav001 into milestone3 2024-11-21 15:30:22 +00:00
Conversation 0 Commits 129 Files changed 22 +27 -21
1 changed files with 27 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit 9acf18c503 - Show all commits

46
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,32 +990,39 @@ 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)
, filler , spacer
, mainButton "Cancel" CloseShield `nodeEnabled` True
, filler
]) ])
]) `styleBasic` ]) `styleBasic`
[radius 4, border 2 btnColor, bgColor white, padding 4] [radius 4, border 2 btnColor, bgColor white, padding 4]