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