Make selection cursors use selection item width

2024-11-26 22:49:54 +00:00
parent f12c390778
commit 2b969f6530
9 changed files with 128 additions and 126 deletions
@@ -26,13 +26,13 @@ defaultListDisplayParams =
                { _spScreenOff = V2 (-0.5) 0.5 -- top left
                , _spPixelOff = 0
                }
-        , _ldpWidth = FixedSelectionWidth 15
+        , _ldpWidth = UseItemWidth
        }

 invDisplayParams :: World -> ListDisplayParams
 invDisplayParams w =
    defaultListDisplayParams
-        & ldpWidth .~ FixedSelectionWidth (determineInvSelCursorWidth w)
+--        & ldpWidth .~ FixedSelectionWidth (determineInvSelCursorWidth w)
        & ldpPos . spPixelOff .~ V2 6 (-1)

 invCursorParams :: World -> CursorDisplay