set_in_child

procedure set_in_child(

  var a: TGtkNotebook;

  __in_child: guint

); overload;

procedure set_in_child(

  var a: TGtkSpinButton;

  __in_child: guint

); overload;