module Dodge.Menu.Loading where

import Dodge.Menu.Option
import Dodge.Data.Universe

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