Source position: gtkrange.pp line 45
procedure set_scroll_type(
var a: TGtkRange;
__scroll_type: guint
);