adam@10: (** Reactive view of the current time *)
adam@10: 
adam@10: type t
adam@10: 
adam@10: val create : int -> transaction t
adam@10: (* Specify the clock resolution, in milliseconds. *)
adam@10: 
adam@10: val start : t -> transaction {}
adam@10: (* Call this in client-side code (e.g., 'onload' handler) to begin. *)
adam@10: 
adam@10: val signal : t -> signal time