Reimplement dragging upwards with mouse

2024-10-25 10:29:27 +01:00
parent 388064895f
commit 0c5a21765a
10 changed files with 204 additions and 187 deletions
@@ -17,16 +17,15 @@ data HUDElement
        { _subInventory :: SubInventory
        , _diSections :: SelectionSections ()
        , _diSelection :: Maybe (Int,Int)
+        , _diSelectionExtra :: Int
        }
    | DisplayCarte

 data MouseInventorySelection
-    = NoMouseSel
-    | MouseInvSelect
+    = MouseInvSelect
        {_misSelStart :: (Int, Int), _misMaybeEnd :: Maybe (Int, Int)}
-    | MouseInvChosen
-        { _misExtra :: Int
-        }
+    | MouseInvDrag
+    | MouseInvNothing

 data SubInventory
    = NoSubInventory