Source position: gtkscale.inc line 52
procedure set_value_pos(
var a: TGtkScale;
__value_pos: guint
);