module Dodge.Menu.Loading (
    loadingScreen,
) where

import Dodge.Data.Universe
import Dodge.ListDisplayParams

loadingScreen :: String -> ScreenLayer
loadingScreen str =
    OptionScreen
        { _scTitle = str
        , _scOptions = []
        , _scOffset = 0
        , _scPositionedMenuOption = NoEscapeMenuOption
        , _scOptionFlag = LoadingScreen
        , _scSelectionList = []
        , _scAvailableLines = 0
        , _scListDisplayParams = optionListDisplayParams
        , _scDisplayTime = 0
        }