Fix scroll selection of floor items and buttons

2022-12-25 23:37:42 +00:00
parent 2ae7f2bbc1
commit d2141d90ae
13 changed files with 75 additions and 126 deletions
@@ -15,3 +15,10 @@ getAvailableListLines ldps cfig = nlines
    dToBot = cfig ^. windowY - (ldps ^. ldpPosY + dFromScreenBot)
    dFromScreenBot = 5 -- fromMaybe 0 $ sl ^? slSizeRestriction . ssrType . ssrFromScreenBottom

+defaultSelectionList :: SelectionList a
+defaultSelectionList = SelectionList
+    {_slItems = []
+    , _slSelPos = Nothing
+    , _slLength = 0
+    }
+