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
@@ -57,7 +57,7 @@ fpsText x = color col . text $ "ms/frame " ++ show x
 drawMenuOrHUD :: Configuration -> Universe -> Picture
 drawMenuOrHUD cfig u = case u ^. uvScreenLayers of
    [] -> drawHUD (u ^. uvConfig) (u ^. uvWorld)
-    (lay : _) -> drawMenuScreen cfig lay
+    (lay : _) -> drawMenuScreen cfig (u ^? uvWorld . input . mouseContext . mcoMenuClick) lay

 drawConcurrentMessage :: Universe -> Picture
 drawConcurrentMessage u =