Update changes in menu values

2022-12-21 16:08:22 +00:00
parent 03c945d189
commit 91d65094c9
4 changed files with 14 additions and 11 deletions
@@ -21,6 +21,14 @@ slTitleOptionsEff title ops defstr eff u =
        , _scSelectionList = makeOptionsSelectionList (Just 0) u ops
        }

+refreshOptionsSelectionList :: Universe -> Universe
+refreshOptionsSelectionList u = u & uvScreenLayers . ix 0 %~ f
+  where
+    f sl = case sl of
+        OptionScreen {_scOptions = mops} -> sl & scSelectionList . slItems .~ optionsToSelections u mops
+        _ -> sl
+     
+
 --makeOptionsSelectionList :: Maybe Int -> Universe -> [MenuOption] -> Maybe String -> SelectionList
 --makeOptionsSelectionList mselpos u mos defstr = SelectionList
 makeOptionsSelectionList :: Maybe Int -> Universe -> [MenuOption] -> SelectionList