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