Continue reload refactor

2022-06-21 14:07:17 +01:00
parent 14a7189b44
commit 53c8be0679
33 changed files with 106 additions and 115 deletions
@@ -128,7 +128,7 @@ subInventoryDisplay subinv cfig w = case subinv of
        | ButtonRight `S.member` _mouseButtons w = listCursorNESW
        | otherwise = listCursorNSW
    curpos = invSelPos w
-    cury   = fromMaybe 1 $ augmentedInvSizes w IM.!? _crInvSel (you w)
+    cury   = fromMaybe 1 $ augmentedInvSizes w IM.!? crSel (you w)
    equipcursor = case _crLeftInvSel cr of
        Just invid -> f cyan invid (_crInvEquipped cr IM.! invid)
        _ -> mempty