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