Source position: gtkhandlebox.pp line 46
procedure set_shrink_on_detach(
var a: TGtkHandleBox;
__shrink_on_detach: guint
);