jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2024-11-29 10:54:48 +03:00
Code Issues Projects Releases Wiki Activity

Make scroll bar functions explicitly handle zero-height/width content cases

Browse Source
This commit is contained in:
Jonathan Daugherty 2021-11-12 16:41:13 -08:00
parent 9ca9a39b89
commit 4dd85869eb
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Brick/Widgets/Core.hs
View File

@ -1330,6 +1330,8 @@ verticalScrollbar :: ScrollbarRenderer n
-> Int
-- ^ The total viewport content height.
-> Widget n
verticalScrollbar vsRenderer vpHeight _ 0 =
hLimit 1 $ vLimit vpHeight $ renderScrollbarTrough vsRenderer
verticalScrollbar vsRenderer vpHeight vOffset contentHeight =
-- Get the proportion of the total content that is visible
let visibleContentPercent :: Double
@ -1382,6 +1384,8 @@ horizontalScrollbar :: ScrollbarRenderer n
-> Int
-- ^ The total viewport content width.
-> Widget n
horizontalScrollbar hsRenderer vpWidth _ 0 =
vLimit 1 $ hLimit vpWidth $ renderScrollbarTrough hsRenderer
horizontalScrollbar hsRenderer vpWidth hOffset contentWidth =
-- Get the proportion of the total content that is visible
let visibleContentPercent :: Double