Work on mouse selection in options menu

2023-05-10 10:02:37 +01:00
parent ab714d63db
commit cc42a5e124
10 changed files with 130 additions and 88 deletions
@@ -1,5 +1,7 @@
 module Dodge.Menu.Option where

+import Dodge.ListDisplayParams
+import Dodge.Data.ScreenPos
 import Control.Applicative
 import Data.Maybe
 import Dodge.Data.CardinalPoint
@@ -10,17 +12,16 @@ import Dodge.SelectionList
 import LensHelp
 import Padding
 import Picture.Base
+import Linear

 optionListDisplayParams :: ListDisplayParams
 optionListDisplayParams =
-    ListDisplayParams
-        { _ldpPosX = 50
-        , _ldpPosY = 50
-        , _ldpScale = 2
-        , _ldpVerticalGap = 0
-        , _ldpWidth = FixedSelectionWidth 25
-        , _ldpCursorSides = [North, South, West]
-        }
+    defaultListDisplayParams
+        & ldpPos . spPixelOff .~ V2 50 (-50)
+        & ldpScale .~ 2
+        & ldpVerticalGap .~ 0
+        & ldpWidth .~ FixedSelectionWidth 25
+        & ldpCursorSides .~ [North, South, West]

 initializeOptionMenu :: String -> [MenuOption] -> PositionedMenuOption -> Universe -> ScreenLayer
 initializeOptionMenu title ops pmo u =