let emit_scroll = GtkSignal.emit ~conv:ignore ~emitter: (fun ~cont t ~(pos:clampf) -> cont [|`INT(Gpointer.encode_variant GtkEnums.scroll_type t); `FLOAT pos|])