21 lines
521 B
Haskell
21 lines
521 B
Haskell
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
|
|
}
|