Allow dragging of selected items in inventory

2024-10-20 11:32:37 +01:00
parent 8b6f5529ff
commit f6e32ff6ef
7 changed files with 259 additions and 158 deletions
@@ -19,19 +19,22 @@ data HUDElement
        }
    | DisplayCarte

-data MouseInventorySelection = NoMouseSel
-        | MouseInvSelect 
-            {_misSelStart :: (Int,Int), _misMaybeEnd :: Maybe (Int,Int)}
-        | MouseInvChosen 
-            {_misChosenStart :: (Int,Int), _misChosenEnd :: (Int,Int)}
+data MouseInventorySelection
+    = NoMouseSel
+    | MouseInvSelect
+        {_misSelStart :: (Int, Int), _misMaybeEnd :: Maybe (Int, Int)}
+    | MouseInvChosen
+        { _misChosenStart :: (Int, Int)
+        , _misChosenEnd :: (Int, Int)
+        }

 data SubInventory
    = NoSubInventory
        { _nsSelected :: MouseInventorySelection
-        , _nsMouseOver :: Maybe (Int,Int)
+        , _nsMouseOver :: Maybe (Int, Int)
        }
    | ExamineInventory
-    | CombineInventory { _ciSections :: SelectionSections CombinableItem }
+    | CombineInventory {_ciSections :: SelectionSections CombinableItem}
    | LockedInventory
    | DisplayTerminal {_termID :: Int}