Tweak mouse context/cursors

2024-11-15 22:53:33 +00:00
parent 4434093d81
commit 0621709f7b
7 changed files with 288 additions and 205 deletions
@@ -18,9 +18,14 @@ data PressType

 data MouseContext
    = NoMouseContext
-    | OverInv { _mcoInv :: (Int,Int)}
-    | OverCombInv { _mcoCombInv :: (Int,Int)}
-    | OverTerminalScreen
+    | MouseAiming
+    | OverInvSelect { _mcoInvSelect :: (Int,Int)}
+    | OverInvFilt { _mcoInvFilt :: (Int,Int)}
+    | OverCombSelect { _mcoCombSelect :: (Int,Int)}
+    | OverCombCombine { _mcoCombCombine :: (Int,Int)}
+    | OverCombFilter
+    | OverTerminalReturn
+    | OverTerminalEscape

 data Input = Input
    { _mousePos :: Point2 -- in pixels, from the center of the screen