Fix scroll selection of floor items and buttons

2022-12-25 23:37:42 +00:00
parent 2ae7f2bbc1
commit d2141d90ae
13 changed files with 75 additions and 126 deletions
@@ -47,7 +47,7 @@ pressedMBEffects subinv pkeys w = case subinv of
  where
    maybeexitcombine
        | ButtonRight `M.member` _mouseButtons (_input w) = id
-        | otherwise = cWorld . lWorld . hud . hudElement .~ DisplayInventory NoSubInventory
+        | otherwise = cWorld . lWorld . hud . hudElement . subInventory .~ NoSubInventory

 pressedMBEffectsNoInventory :: M.Map MouseButton Bool -> World -> World
 pressedMBEffectsNoInventory pkeys w