Cleanup

2022-12-29 12:54:34 +00:00
parent bdd022e40b
commit 5bc764655d
15 changed files with 54 additions and 30 deletions
@@ -15,6 +15,13 @@ data PressType = InitialPress
    | LongPress
  deriving (Eq,Show)

+data MouseButtonInfo = MouseButtonInfo
+    { _mbHeldDown :: Bool
+    , _mbFlags :: [MouseButtonFlag]
+    }
+data MouseButtonFlag
+    = PressedStartRewind
+
 data Input = Input
    { _mousePos :: Point2
    , _mouseMoving :: Bool