src/Zenith/GUI.hs

@@ -975,7 +975,8 @@ buildUI wenv model = widgetTree
         , filler
         ]
     shieldOverlay =
-      box  
+      alert CloseShield $
+      box
         (vstack
            [ filler
            , hstack
@@ -990,39 +991,32 @@ buildUI wenv model = widgetTree
                       , separatorLine `styleBasic` [fgColor btnColor]
                       , spacer    
                       , hstack
-                          [ filler
+                          [ label "Amount:" `styleBasic`
-                          , label ("Amount : " ) `styleBasic`
                             [width 50, textFont "Bold"]
                           , spacer
-                          , label (displayAmount (model ^. network) 100 ) `styleBasic`
+                          , numericField_
-                            [width 50, textFont "Bold"]
+                              sendAmount
-                          , filler
+                              [ decimals 8
---                          , spacer
+                              , minValue 0.0
---                          , numericField_
+                              , maxValue
---                              sendAmount
+                                  (fromIntegral (model ^. tBalance) / 100000000.0)
---                              [ decimals 8
+                              , validInput tBalanceValid
---                              , minValue 0.0
+                              , onChange CheckAmount
---                              , maxValue
+                              ] `styleBasic`
---                                  (fromIntegral (model ^. tBalance) / 100000000.0)
+                            [ width 150
---                              , validInput tBalanceValid
+                            , styleIf
---                              , onChange CheckAmount
+                                (not $ model ^. tBalanceValid)
---                              ] `styleBasic`
+                                (textColor red)
---                            [ width 150
+                            ]
---                            , styleIf
---                                (not $ model ^. tBalanceValid)
---                                (textColor red)
---                            ]
                           ]
                       , spacer
                       , box_
                           [alignMiddle]
                           (hstack
-                              [ filler 
+                             [ filler 
-                              , mainButton "Proceed" NotImplemented `nodeEnabled` True
+                             , mainButton "Proceed" NotImplemented `nodeEnabled`
---                               (model ^. amountValid && model ^. recipientValid)
+                               (model ^. amountValid && model ^. recipientValid)
-                              , spacer 
+                             , filler
-                              , mainButton "Cancel" CloseShield `nodeEnabled` True
-                              , filler
                              ])
                       ]) `styleBasic`
                  [radius 4, border 2 btnColor, bgColor white, padding 4]
@@ -1032,6 +1026,7 @@ buildUI wenv model = widgetTree
            ]) `styleBasic`
       [bgColor (white & L.a .~ 0.5)]
     deShieldOverlay =
+      alert CloseDeShield $
       box
         (vstack
            [ filler
@@ -1080,10 +1075,8 @@ buildUI wenv model = widgetTree
                           [alignMiddle]
                           (hstack
                              [ filler 
-                             , mainButton "Proceed" NotImplemented `nodeEnabled` True
+                             , mainButton "Proceed" NotImplemented `nodeEnabled`
---                               (model ^. amountValid && model ^. recipientValid)
+                               (model ^. amountValid && model ^. recipientValid)
-                             , spacer 
-                             , mainButton "Cancel" CloseDeShield `nodeEnabled` True
                              , filler
                              ])
                       ]) `styleBasic`