Work on selection lists and option menus

2022-12-23 22:43:30 +00:00
parent b072dc9e9a
commit 5356d21778
5 changed files with 49 additions and 33 deletions
@@ -48,12 +48,17 @@ data SideEffect
 data OptionScreenFlag = NormalOptions | GameOverOptions | SplashOptions
    deriving (Eq, Ord, Show, Read) --Generic, Flat)

+data PositionedMenuOption
+    = BottomMenuOption { _pmoMenuOption :: MenuOption }
+    | TopMenuOption { _pmoMenuOption :: MenuOption }
+    | NoPositionedMenuOption
+
 data ScreenLayer
    = OptionScreen
        { _scTitle :: String
        , _scOptions :: [MenuOption]
        , _scOffset :: Int
-        , _scMaybeOption :: Maybe MenuOption
+        , _scPositionedMenuOption :: PositionedMenuOption
        , _scOptionFlag :: OptionScreenFlag
        , _scSelectionList :: SelectionList
        , _scAvailableLines :: Int
@@ -100,3 +105,4 @@ makeLenses ''ScreenLayer
 makeLenses ''SideEffect
 makeLenses ''MenuOptionDisplay
 makeLenses ''MenuOption
+makeLenses ''PositionedMenuOption