brick/programs/FillDemo.hs

17 lines
471 B
Haskell
Raw Normal View History

2017-08-03 01:55:09 +03:00
module Main where
import Brick
2018-08-05 06:19:16 +03:00
import Brick.Widgets.Border
2017-08-03 01:55:09 +03:00
ui :: Widget ()
2022-09-21 23:46:40 +03:00
ui = vBox [ vLimitPercent 20 $ vBox [ str "This text is in the top 20% of the window due to a fill and vLimitPercent."
2018-08-05 06:19:16 +03:00
, fill ' '
, hBorder
]
2022-09-21 23:46:40 +03:00
, str "This text is at the bottom with another fill beneath it."
, fill 'x'
2017-08-03 01:55:09 +03:00
]
main :: IO ()
main = simpleMain ui