From 5fe19ab046fb6c1eeb654c1fa49f0c205449ac5d Mon Sep 17 00:00:00 2001 From: Jonathan Daugherty Date: Wed, 21 Sep 2022 13:46:40 -0700 Subject: [PATCH] brick-fill-demo: improve UI --- programs/FillDemo.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/programs/FillDemo.hs b/programs/FillDemo.hs index 46111cd..e479899 100644 --- a/programs/FillDemo.hs +++ b/programs/FillDemo.hs @@ -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 ()