Move selection list offset into option screen data structure

2022-12-22 10:27:01 +00:00
parent 91d65094c9
commit a8fa1e9949
7 changed files with 14 additions and 11 deletions
@@ -16,6 +16,7 @@ slTitleOptionsEff title ops defstr eff u =
    OptionScreen
        { _scTitle = title
        , _scOptions = ops
+        , _scOffset = 0
        , _scMaybeOption = fmap (Toggle eff . const . MODString) defstr
        , _scOptionFlag = NormalOptions
        , _scSelectionList = makeOptionsSelectionList (Just 0) u ops
@@ -35,7 +36,6 @@ makeOptionsSelectionList :: Maybe Int -> Universe -> [MenuOption] -> SelectionLi
 makeOptionsSelectionList mselpos u mos = SelectionList
    { _slPosX = 50
    , _slPosY = 50
-    , _slOffset = 0
    , _slScale = 2
    , _slVerticalGap = 30
    , _slItems = optionsToSelections u mos