Module SubSource

Sourcetype 'msg onesub =
  1. | SubTick of Time.posix -> 'msg
  2. | SubMouseMove of (float * float) -> 'msg
  3. | SubMouseDown of unit -> 'msg
  4. | SubMouseUp of unit -> 'msg
  5. | SubKeyDown of Keyboard.key -> 'msg
  6. | SubKeyUp of Keyboard.key -> 'msg
Sourcetype 'msg t = 'msg onesub list
Sourceval none : 'a list
Sourceval batch : 'a list list -> 'a list
Sourceval on_animation_frame : (Time.posix -> 'msg) -> 'msg t
Sourceval on_mouse_move : ((float * float) -> 'msg) -> 'msg t
Sourceval on_mouse_down : (unit -> 'msg) -> 'msg t
Sourceval on_mouse_up : (unit -> 'msg) -> 'msg t
Sourceval on_key_down : (Keyboard.key -> 'msg) -> 'msg t
Sourceval on_key_up : (Keyboard.key -> 'msg) -> 'msg t
Sourcetype event =
  1. | ETick of float
  2. | EMouseMove of int * int
  3. | EMouseButton of bool
  4. | EKeyChanged of bool * Keyboard.key
Sourceval find_map_opt : ('a -> 'b option) -> 'a list -> 'b option
Sourceval event_to_msgopt : event -> 'a onesub list -> 'a option