module Callback: sig .. end
type 'a t
Set of callbacks where callbacks have type 'a
type int
The unique identifier of a given callback (for removal)
val create : unit -> 'a t
val register : 'a t -> f:'a -> callback_id
Register a new callback
val remove : 'a t -> id:int -> unit
Remove the callback with given ID
val iter : 'a t -> f:('a -> unit) -> unit
Iterate on callbacks
val call1 : ('a -> unit) t -> 'a -> unit
call1 l x is short for iter l ~f:(fun f -> f x)
val call2 : ('a -> 'b -> unit) t -> 'a -> 'b -> unit
call2 l x y is short for iter l ~f:(fun f -> f x y)