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