external add_event_handler : t -> Gui_event_handler.t -> unit = "viewer_add_event_handler"