Source position: gtkpaned.pp line 50
procedure set_child1_resize(
var a: TGtkPaned;
__child1_resize: guint
);