Continue improving mouse|inventory interface

2024-11-21 21:04:07 +00:00
parent efef41c9e1
commit 1250e2442a
9 changed files with 165 additions and 148 deletions
@@ -22,7 +22,7 @@ data MouseContext
    | MouseInGame
    | MouseMenuClick {_mcoMenuClick :: Int}
    | MouseMenuCursor
-    | OverInvDrag {_mcoDragPos :: Maybe Int}
+    | OverInvDrag {_mcoDragSection :: Int, _mcoMaybeSelect :: Maybe (Int,Int)}
    | OverInvDragSelect { _mcoSelStart :: (Int,Int), _mcoSelEnd :: Maybe (Int,Int) }
    | OverInvSelect { _mcoInvSelect :: (Int,Int)}
    | OverInvFilt { _mcoInvFilt :: (Int,Int)}