Work on inventory dragging

2026-05-15 22:02:17 +01:00
parent e56a953c9b
commit 3a2e92169b
3 changed files with 159 additions and 167 deletions
@@ -271,9 +271,9 @@ invSetSelection sel w =
    w
        & hud . diSelection ?~ sel
        & worldEventFlags . at InventoryChange ?~ ()
-        & crUpdateItemLocations
+--        & crUpdateItemLocations
        & setInvPosFromSS -- is this necessary here?
-        & crUpdateItemLocations
+--        & crUpdateItemLocations

 invSetSelectionPos :: Int -> Int -> World -> World
 invSetSelectionPos i j = invSetSelection (Sel i j)