Allow scrolling within a larger selection to not remove larger selection

2024-11-25 17:20:09 +00:00
parent 83bcf3c0f7
commit 669f9667f1
16 changed files with 233 additions and 200 deletions
@@ -83,7 +83,7 @@ setInvPosFromSS w =
        & cWorld . lWorld . creatures . ix 0 . crManipulation . manObject .~ thesel
  where
    thesel = fromMaybe SelNothing $ do
-        (i, j) <- w ^? hud . hudElement . diSelection . _Just
+        (i, j, _) <- w ^? hud . hudElement . diSelection . _Just
        case i of
            (-1) -> Just SortInventory
            0 -> do