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