Tweak mouseover display to (partially) work during filtering

2024-11-03 20:52:00 +00:00
parent feec061aa6
commit adca54c1ef
10 changed files with 361 additions and 349 deletions
@@ -105,10 +105,10 @@ getRootItemBounds i inv = do

 drawDIMouseOver :: World -> Picture
 drawDIMouseOver w = fromMaybe mempty $ do
-    (_, i) <- w ^? hud . hudElement . subInventory . nsMouseOver . _Just
+    (j, i) <- w ^? hud . hudElement . subInventory . nsMouseOver . _Just
    sss <- w ^? hud . hudElement . diSections
    let idp = invDisplayParams w
-    return . color (withAlpha 0.2 white) $ selSecDrawCursorAt 15 idp curs sss (0, i)
+    return . color (withAlpha 0.2 white) $ selSecDrawCursorAt 15 idp curs sss (j, i)
  where
    curs = BackdropCursor