mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix rendering string prompts

Browse source 
Rendering an editor with txtWrap makes brick blow up because editors
have an internal viewport, but txtWrap advertises an infinite width.
This commit is contained in:
Griffin Smith 2019-12-22 22:42:05 -05:00
parent e619dcd126
commit 0f754eb2a0
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Xanthous/Game/Draw.hs
View file

@ -48,7 +48,7 @@ drawPromptState NoPrompt = emptyWidget
drawPromptState (WaitingPrompt msg (Prompt _ pt ps pri _)) = drawPromptState (WaitingPrompt msg (Prompt _ pt ps pri _)) =
case (pt, ps, pri) of case (pt, ps, pri) of
(SStringPrompt, StringPromptState edit, _) -> (SStringPrompt, StringPromptState edit, _) ->
txtWrap msg <+> renderEditor (txtWrap . fold) True edit txtWrap msg <+> txt " " <+> renderEditor (txt . fold) True edit
(SDirectionPrompt, DirectionPromptState, _) -> txtWrap msg (SDirectionPrompt, DirectionPromptState, _) -> txtWrap msg
(SContinue, _, _) -> txtWrap msg (SContinue, _, _) -> txtWrap msg
(SMenu, _, menuItems) -> (SMenu, _, menuItems) ->