Class Event.event_dispatcher

class event_dispatcher : object .. end

Dispatches events to event listeners. Access using Application.display_singleton_type.event_dispatcher.

val key : < affect : keyboard_listener -> unit;
         pressed : Sdlevent.keyboard_event -> unit;
         released : Sdlevent.keyboard_event -> unit >

Interface to the keyboard event system. key#affect adds a Event.keyboard_listener. The remaining methods cause events to be dispatched to all listeners.

val mouse : < affect : mouse_listener -> unit;
         dragged : Sdlevent.mousemotion_event -> unit;
         moved : Sdlevent.mousemotion_event -> unit;
         pressed : Sdlevent.mousebutton_event -> unit;
         released : Sdlevent.mousebutton_event -> unit >

Interface to the mouse event system. mouse#affect adds a Event.mouse_listener. The remaining methods cause events to be dispatched to all listeners.

val ticker : < affect : frame_listener -> unit; do_tick : unit >

Interface to the timer event system. ticker#affect adds a Event.frame_listener. The do_tick method cause the event to be dispatched to all listeners. We should be able to set the framerate in here.

method mouse : < affect : mouse_listener -> unit;
         dragged : Sdlevent.mousemotion_event -> unit;
         moved : Sdlevent.mousemotion_event -> unit;
         pressed : Sdlevent.mousebutton_event -> unit;
         released : Sdlevent.mousebutton_event -> unit >

method key : < affect : keyboard_listener -> unit;
         pressed : Sdlevent.keyboard_event -> unit;
         released : Sdlevent.keyboard_event -> unit >

method ticker : < affect : frame_listener -> unit; do_tick : unit >