let map : ([>`widget], [`MAP] Gdk.event -> bool) t = { name = "map_event"; classe = `widget; marshaller = marshal }