Add basic prompt

This commit is contained in:
jgk
2021-05-23 16:24:11 +02:00
parent afafc245ef
commit b337fbdab9
12 changed files with 82 additions and 27 deletions
+1
View File
@@ -50,6 +50,7 @@ menuScreen cfig hw hh mLays = case mLays of
,controlsList
]
(WaitMessage s _ : _) -> optionsList hw hh s []
(Terminal s : _) -> optionsList hw hh "SCANCODE INPUT" ['>':s ++ "_"]
_ -> blank
where
tst x y sc t = translate x y $ scale sc sc $ color white $ text t