brick-fill-demo: improve UI

This commit is contained in:
Jonathan Daugherty 2022-09-21 13:46:40 -07:00
parent c527366347
commit 5fe19ab046

View File

@ -4,11 +4,12 @@ import Brick
import Brick.Widgets.Border
ui :: Widget ()
ui = vBox [ vLimitPercent 20 $ vBox [ str "This text is at the top."
ui = vBox [ vLimitPercent 20 $ vBox [ str "This text is in the top 20% of the window due to a fill and vLimitPercent."
, fill ' '
, hBorder
]
, str "This text is at the bottom."
, str "This text is at the bottom with another fill beneath it."
, fill 'x'
]
main :: IO ()