Source file `event.ml`

1
2
3
4
5
6
7
8
9
10
11
12
(* event.ml *)
(* Unified event type. *)

type t =
  | KeyDown of Key.t
  | KeyUp of Key.t
  | MouseButtonDown of Mouse.button * (int * int)
  | MouseButtonUp of Mouse.button * (int * int)
  | MouseMotion of (int * int)
  | MouseWheel of int
  | MouseDrag of Mouse.button * (int * int)
  | DropFile of string