File: FillDemo.hs

package info (click to toggle)
haskell-brick 2.1.1-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 1,328 kB
  • sloc: haskell: 8,492; makefile: 5
file content (16 lines) | stat: -rw-r--r-- 471 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
module Main where

import Brick
import Brick.Widgets.Border

ui :: Widget ()
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 with another fill beneath it."
          , fill 'x'
          ]

main :: IO ()
main = simpleMain ui