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