Fix dragging over items larger than the selection group

There is still a further choice/improvement to be made here, but at least dragging shouldn't glitch out as it currently stands
2024-11-25 11:09:58 +00:00
parent 905be15a33
commit 2c6037d852
6 changed files with 170 additions and 140 deletions
@@ -22,7 +22,11 @@ data MouseContext
    | MouseInGame
    | MouseMenuClick {_mcoMenuClick :: Int}
    | MouseMenuCursor
-    | OverInvDrag {_mcoDragSection :: Int, _mcoMaybeSelect :: Maybe (Int,Int)}
+    | OverInvDrag {_mcoDragSection :: Int
+        , _mcoMaybeSelect :: Maybe (Int,Int)
+        , _mcoAboveSelect :: Maybe (Int,Int)
+        , _mcoBelowSelect :: Maybe (Int,Int)
+        }
    | OverInvDragSelect { _mcoSelStart :: (Int,Int), _mcoSelEnd :: Maybe (Int,Int) }
    | OverInvSelect { _mcoInvSelect :: (Int,Int)}
    | OverInvFilt { _mcoInvFilt :: (Int,Int)}