external set_window : 'a event -> window -> unit
    = "ml_gdk_event_set_window"