Cleanup, remove inventory display update code on dropping item

2024-10-06 22:32:10 +01:00
parent 650854d13e
commit 507c8e9819
7 changed files with 64 additions and 77 deletions
@@ -21,7 +21,7 @@ import Data.Maybe
 import Dodge.Base
 import Dodge.Data.SelectionList
 import Dodge.Data.World
-import Dodge.DisplayInventory
+--import Dodge.DisplayInventory
 import Dodge.Euse
 import Dodge.Inventory.CheckSlots
 import Dodge.Inventory.CloseObject
@@ -81,7 +81,7 @@ rmInvItem cid invid w = w

    updateselection
        | cid == 0 && cr ^? crManipulation . manObject . imSelectedItem == Just invid =
-            scrollAugInvSel (-1) . scrollAugInvSel 1 . updateInventorySectionItems
+            scrollAugInvSel (-1) . scrollAugInvSel 1-- . updateInventorySectionItems
        | otherwise =
            pointcid . crManipulation . manObject . imSelectedItem %~ g