Decouple selection section inventory position

2024-10-24 14:55:51 +01:00
parent 81f4f38166
commit 388064895f
17 changed files with 304 additions and 261 deletions
@@ -16,6 +16,7 @@ data HUDElement
    = DisplayInventory
        { _subInventory :: SubInventory
        , _diSections :: SelectionSections ()
+        , _diSelection :: Maybe (Int,Int)
        }
    | DisplayCarte

@@ -33,7 +34,9 @@ data SubInventory
        , _nsMouseOver :: Maybe (Int, Int)
        }
    | ExamineInventory
-    | CombineInventory {_ciSections :: SelectionSections CombinableItem}
+    | CombineInventory {_ciSections :: SelectionSections CombinableItem
+        , _ciSelection :: Maybe (Int,Int)
+        }
    | LockedInventory
    | DisplayTerminal {_termID :: Int}