Add options page scrolling

2022-06-25 09:28:45 +01:00
parent 3c2df2542a
commit dd0afc6166
12 changed files with 74 additions and 44 deletions
@@ -126,7 +126,7 @@ data World = World
    , _floorItems           :: IM.IntMap FloorItem
    , _floorTiles           :: [(Point3,Point3)]
    , _randGen              :: StdGen
-    , _testString           :: World -> [String]
+    , _testString           :: Configuration -> World -> [String]
    , _debugPicture         :: Picture
    , _modifications        :: IM.IntMap Modification
    , _yourID               :: Int
@@ -254,6 +254,7 @@ data ScreenLayer
        , _scOptions :: [MenuOption]
        , _scDefaultEff :: Universe -> IO (Maybe Universe)
        , _scOptionFlag :: OptionScreenFlag
+        , _scOptionsOffset :: Int
        }
    | ColumnsScreen 
        { _scTitle  :: Universe -> String