Source position: gtkpaned.inc line 85
procedure set_child1_shrink(
var a: TGtkPaned;
__child1_shrink: guint
);