jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2024-11-25 21:38:31 +03:00
Code Issues Projects Releases Wiki Activity

brick-layer-demo: nit

Browse Source
This commit is contained in:
Jonathan Daugherty 2024-11-21 15:30:53 -08:00
parent 696ae5c467
commit ca36492dec
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
programs/LayerDemo.hs
View File

@ -46,8 +46,8 @@ drawUi st =
[ C.centerLayer $
B.border $ str "This layer is centered but other\nlayers are placed underneath it."
, arrowLayer
, middleLayer st
, bottomLayer st
, middleLayer (st^.middleLayerLocation)
, bottomLayer (st^.bottomLayerLocation)
]
arrowLayer :: Widget Name
@ -59,15 +59,15 @@ arrowLayer =
withDefAttr arrowAttr $
str msg
middleLayer :: St -> Widget Name
middleLayer st =
translateBy (st^.middleLayerLocation) $
middleLayer :: Location -> Widget Name
middleLayer l =
translateBy l $
reportExtent MiddleLayerElement $
B.border $ str "Middle layer\n(Arrow keys move)"
bottomLayer :: St -> Widget Name
bottomLayer st =
translateBy (st^.bottomLayerLocation) $
bottomLayer :: Location -> Widget Name
bottomLayer l =
translateBy l $
B.border $ str "Bottom layer\n(Ctrl-arrow keys move)"
appEvent :: T.BrickEvent Name e -> T.EventM Name St ()