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
@@ -59,7 +59,8 @@ tryPutItemInInv cid flit w = case maybeInvSlot of
                & cWorld . lWorld %~ crUpdateItemLocations cid
            )
  where
-    updateselectionextra | cid == 0 = hud . hudElement . diSelectionExtra .~ mempty
+    updateselectionextra | cid == 0 
+            = hud . hudElement . diSelection . _Just . _3 %~ const mempty
        | otherwise = id
    it = _flIt flit
    maybeInvSlot = checkInvSlotsYou it w