Cleanup, tweak selection sections positioning

2023-02-23 16:13:40 +00:00
parent c5bfa36bde
commit 86943f4170
8 changed files with 79 additions and 120 deletions
@@ -49,8 +49,9 @@ updateWheelEvent yi w = case w ^. hud . hudElement of
    invKeyDown = ScancodeCapsLock `M.member` _pressedKeys (_input w)

 moveCombineSel :: Int -> World -> World
-moveCombineSel yi = hud . hudElement . subInventory . ciSections
-    %~ scrollSelectionSections yi
+moveCombineSel yi = (hud . hudElement . subInventory . ciSections
+    %~ scrollSelectionSections yi)
+    .  (worldEventFlags . at CombineInventoryChange ?~ ())

 moveSubSel :: Int -> Int -> World -> World
 moveSubSel yi maxyi =