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
@@ -162,11 +162,12 @@ defaultDisplayInventory :: HUDElement
 defaultDisplayInventory =
    DisplayInventory
        { _subInventory = NoSubInventory 
-            {_nsSelected = NoMouseSel
+            {_nsSelected = MouseInvNothing
            , _nsMouseOver = Just (0,3)
            }
        , _diSections = defaultInvSections
        , _diSelection = Just (1,0)
+        , _diSelectionExtra = 0
        }

 defaultSSSExtra :: SSSExtra