From abe30db2feff23c2fdcaaadc312acff9cad08fb3 Mon Sep 17 00:00:00 2001
From: "Rene Vergara A." <rvergara59@protonmail.com>
Date: Tue, 24 Sep 2024 11:09:58 -0400
Subject: [PATCH] rvv001 - Zenith GUI - Privacy level radio buttons added to
 Send transaction form

---
 src/Zenith/GUI.hs | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/src/Zenith/GUI.hs b/src/Zenith/GUI.hs
index 12d67c5..fa96cbc 100644
--- a/src/Zenith/GUI.hs
+++ b/src/Zenith/GUI.hs
@@ -177,6 +177,7 @@ data AppModel = AppModel
   , _msgAB :: !(Maybe T.Text)
   , _showABAddress :: !Bool
   , _updateABAddress :: !Bool
+  , _privacyChoice :: !PrivacyPolicy
   } deriving (Eq, Show)
 
 makeLenses ''AppModel
@@ -638,6 +639,29 @@ buildUI wenv model = widgetTree
                           , textArea sendMemo `styleBasic`
                             [width 150, height 40]
                           ]
+                      , spacer
+                        -- Radio button group for privacy level
+                      , hstack 
+                          [ 
+                            label "Privacy Level:" `styleBasic` [width 70]
+                          , spacer
+                          , label "None " `styleBasic` [width 40]
+                          , radio None privacyChoice
+                          , spacer
+                          , label "Low " `styleBasic` [width 40]
+                          , radio  Low privacyChoice
+
+                          ]
+                      , hstack 
+                          [
+                            label "               " `styleBasic` [width 70]
+                          , spacer
+                          , label "Medium " `styleBasic` [width 40]
+                          , radio  Medium privacyChoice
+                          , spacer
+                          , label "Full " `styleBasic` [width 40]
+                          , radio  Full privacyChoice
+                          ]
                       , spacer
                       , box_
                           [alignMiddle]
@@ -1649,6 +1673,7 @@ runZenithGUI config = do
                           Nothing
                           False
                           False
+                          None
                   startApp model handleEvent buildUI (params hD)
         Left _e -> print "Zebra not available"
   where