Refactor control list display

2021-09-13 01:39:53 +01:00
parent d11d19c9e8
commit b27c174d93
6 changed files with 79 additions and 52 deletions
@@ -113,6 +113,7 @@ data ScreenLayer
        , _scDefaultEff :: World -> Maybe World
        , _scOptionFlag :: OptionScreenFlag
        }
+    | ColumnsScreen String [(String,String)]
    | InputScreen String
    | TerminalScreen Int [(Int,String)]
    | WaitScreen