src/Zenith/CLI.hs

@@ -135,6 +135,8 @@ data Name
   | PrivacyFullField
   | ShieldField  
   | DeshieldField
+  | TotalTranspField
+  | TotalShieldedField
   deriving (Eq, Show, Ord)
 
 data DialogInput = DialogInput
@@ -160,7 +162,9 @@ data AdrBookEntry = AdrBookEntry
 makeLenses ''AdrBookEntry
 
 data ShDshEntry = ShDshEntry 
-  { _shieldOp :: !ShieldDeshieldOp 
+  { _totalTransparent :: !Float
+  , _totalShielded :: !Float
+  , _shieldOp :: !ShieldDeshieldOp 
   , _shAmt  :: !Float
   }  deriving (Show)
 
@@ -668,7 +672,11 @@ mkSendForm bal =
 mkshieldDeshieldForm :: Integer -> ShDshEntry -> Form ShDshEntry e Name
 mkshieldDeshieldForm bal =
   newForm
-    [ label "Select :" @@=
+    [ label "Total Transp.  : " @@= 
+        editShowableFieldWithValidate totalTransparent TotalTranspField (isAmountValid bal)
+    , label "Total Shielded : " @@= 
+        editShowableFieldWithValidate totalShielded TotalShieldedField (isAmountValid bal) 
+    , label "Select :" @@= 
       radioField
         shieldOp
         [ (Shield, ShieldField, "Shield")
@@ -1537,7 +1545,7 @@ runZenithTUI config = do
                   ""
                   Nothing
                   uBal
-                  (mkshieldDeshieldForm 0 (ShDshEntry Shield 0.0 ))
+                  (mkshieldDeshieldForm 0 (ShDshEntry 0 0 Shield 0.0 ))
     Left _e -> do
       print $
         "No Zebra node available on port " <>