brick/programs/FillDemo.hs

16 lines
371 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 ()
2018-08-05 06:19:16 +03:00
ui = vBox [ vLimitPercent 20 $ vBox [ str "This text is at the top."
, fill ' '
, hBorder
]
2017-08-03 01:55:09 +03:00
, str "This text is at the bottom."
]
main :: IO ()
main = simpleMain ui