Continue mouse context refactor

2024-11-18 22:21:12 +00:00
parent 69fe28afe7
commit 5b709cd7ba
7 changed files with 186 additions and 165 deletions
@@ -22,13 +22,15 @@ data MouseContext
    | MouseInGame
    | MouseMenuClick {_mcoMenuClick :: Int}
    | MouseMenuCursor
+    | OverInvDrag
+    | OverInvDragSelect { _mcoSelStart :: (Int,Int), _mcoSelEnd :: (Int,Int) }
    | OverInvSelect { _mcoInvSelect :: (Int,Int)}
    | OverInvFilt { _mcoInvFilt :: (Int,Int)}
    | OverCombSelect { _mcoCombSelect :: (Int,Int)}
    | OverCombCombine { _mcoCombCombine :: (Int,Int)}
    | OverCombFilter
    | OverCombEscape
-    | OverTerminalReturn
+    | OverTerminalReturn {_mcoTermID :: Int}
    | OverTerminalEscape
    deriving (Show)