Go to the first, previous, next, last section, table of contents.


The Eloop module

open Xtypes
type display

val debug : bool ref

val mutex : Concur.Mutex.t  

val event_loop : unit -> unit

val add_display : Xtypes.display -> (xevent -> unit) -> display

val remove_display : display -> unit

val display : display -> Xtypes.display

val add_window : display -> window -> (xevent -> unit) -> unit

val remove_window : display -> window -> unit

val known_window : display -> window -> bool

val add_timer : display -> float -> (unit -> unit) -> unit

val last_event : display -> event

val last_time : display -> time

val event_time: time ref

val add_after_event_hook: (unit -> unit) -> unit

val add_after_events_hook: (unit -> unit) -> unit

val handle_event:  display -> Xtypes.xevent -> unit

val update_event_time: Xtypes.xevent -> unit

val update_time: display -> Xtypes.xevent -> unit
val handle_events: bool -> bool


Go to the first, previous, next, last section, table of contents.