jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2025-01-07 14:36:59 +03:00
Code Issues Projects Releases Wiki Activity

List: adding list item widgets that grow vertically is not permitted

Browse Source
This commit is contained in:
Jonathan Daugherty 2015-06-24 21:17:08 -07:00
parent 5a59675943
commit bf1e50d0e6
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Brick/Widgets/List.hs
View File

@ -67,7 +67,10 @@ drawListElements l = drawnElements
es = listElements l
drawnElements = for (zip [0..] es) $ \(i, e) ->
let isSelected = Just i == listSelected l
elemWidget = listElementDraw l isSelected e
elemWidget = let w = listElementDraw l isSelected e
in if vSize w == Unlimited
then error "Tried to add a list widget that has has an unlimited vertical size"
else w
makeVisible = if isSelected
then (visible . withAttrName listSelectedAttr)
else id