Handle menu selection with mouse context, remove wheel scroll control

2024-11-17 12:32:05 +00:00
parent 53d8ca2861
commit 5b6c356bab
9 changed files with 147 additions and 136 deletions
@@ -14,6 +14,7 @@ module Dodge.Render.List (
    listCursorChooseBorderScale,
    selSecDrawCursorAt,
    drawTitleBackground, -- should be renamed, made sensible
+    drawCursorAt,
 ) where

 import Dodge.ListDisplayParams
@@ -38,11 +39,11 @@ drawSelectionList ldps cfig sl =
            (ldps ^. ldpScale)
            0
            (makeSelectionListPictures sl)
-            <> drawCursorAt
-                (sl ^. slSelPos)
-                (sl ^. slItems)
-                ldps
-                (BoundaryCursor [North, South])
+--            <> drawCursorAt
+--                (sl ^. slSelPos)
+--                (sl ^. slItems)
+--                ldps
+--                (BoundaryCursor [North, South])

 drawTitleBackground :: Configuration -> Picture
 drawTitleBackground cfig =