Move towards separating selection sections cursor position storage

2024-10-24 13:42:49 +01:00
parent 5ca440ca67
commit 81f4f38166
3 changed files with 51 additions and 41 deletions
@@ -59,9 +59,11 @@ updateWheelEvent yi w = case w ^. hud . hudElement of
 moveCombineSel :: Int -> World -> World
 moveCombineSel yi =
    ( hud . hudElement . subInventory . ciSections
-        %~ scrollSelectionSections yi
+        %~ doscroll
    )
        . (worldEventFlags . at CombineInventoryChange ?~ ())
+  where
+    doscroll sss = sss & sssExtra . sssSelPos %~ scrollSelectionSections yi sss

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