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
@@ -10,7 +10,6 @@ import Dodge.Data.CardinalPoint
 data SelectionList = SelectionList
    { _slPosX :: Float
    , _slPosY :: Float
-    , _slOffset :: Int
    , _slScale :: Float
    , _slVerticalGap :: Float
    , _slItems :: [SelectionItem]
@@ -52,6 +52,7 @@ data ScreenLayer
    = OptionScreen
        { _scTitle :: String
        , _scOptions :: [MenuOption]
+        , _scOffset :: Int
        , _scMaybeOption :: Maybe MenuOption
        , _scOptionFlag :: OptionScreenFlag
        , _scSelectionList :: SelectionList