Source position: gtkwindow.pp line 45
procedure set_allow_shrink(
var a: TGtkWindow;
__allow_shrink: guint
);