Continue hud/mouse refactor

2024-11-16 15:06:05 +00:00
parent 0621709f7b
commit 5efc9220e0
6 changed files with 184 additions and 226 deletions
@@ -19,13 +19,16 @@ data PressType
 data MouseContext
    = NoMouseContext
    | MouseAiming
+    | MouseClick
    | OverInvSelect { _mcoInvSelect :: (Int,Int)}
    | OverInvFilt { _mcoInvFilt :: (Int,Int)}
    | OverCombSelect { _mcoCombSelect :: (Int,Int)}
    | OverCombCombine { _mcoCombCombine :: (Int,Int)}
    | OverCombFilter
+    | OverCombEscape
    | OverTerminalReturn
    | OverTerminalEscape
+    deriving (Show)

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