Work on cursor for lists

2023-05-10 01:44:42 +01:00
parent 93519345de
commit cd42e29012
11 changed files with 53 additions and 45 deletions
@@ -19,14 +19,14 @@ defaultListDisplayParams =
        , _ldpScale = 1
        , _ldpPosX = 0
        , _ldpPosY = 0
-        , _ldpCursorType = NoCursor
+        , _ldpCursorSides = mempty
        , _ldpWidth = FixedSelectionWidth 15
        }

 invDisplayParams :: World -> ListDisplayParams
 invDisplayParams w =
    defaultListDisplayParams
-        & ldpCursorType .~ BorderCursor selcursortype
+        & ldpCursorSides .~ selcursortype
        & ldpWidth .~ FixedSelectionWidth (determineInvSelCursorWidth w)
  where
    selcursortype
@@ -41,7 +41,7 @@ secondColumnParams =
    defaultListDisplayParams
        & ldpPosX .~ subInvX
        & ldpPosY .~ 60
-        & ldpCursorType .~ BorderCursor [North, South, West]
+        & ldpCursorSides .~ [North, South, West]

 subInvX :: Float
 subInvX = 9 * fromIntegral topInvW + 50