Fl_Group(int, int, int, int, const char *=0);

function Create
       (X, Y, W, H : in Integer;
        Text       : in String)
    return Group;

Fl_Widget *& _ddfdesign_kludge();

void add(Fl_Widget &);
void add(Fl_Widget *o);

procedure Add
       (This : in out Group;
        Item : in out Widget'Class);

void add_resizable(Fl_Widget &o);

Fl_Widget * const * array() const;

virtual Fl_Group * as_group();

void begin();

function Has_Child
       (This  : in Group;
        Place : in Index)
    return Boolean;

function Has_Child
       (Place : in Cursor)
    return Boolean;

Fl_Widget * child(int n) const;

function Child
       (This  : in Group;
        Place : in Index)
    return Widget_Reference;

function Child
       (This  : in Group;
        Place : in Cursor)
    return Widget_Reference;

int children() const;

function Number_Of_Children
       (This : in Group)
    return Natural;

void clear();

procedure Clear
       (This : in out Group);

void clip_children(int c);

unsigned int clip_children();

void draw();

procedure Draw
       (This : in out Group);

void end();

int find(const Fl_Widget *) const;
int find(const Fl_Widget &o) const;

function Find
       (This : in     Group;
        Item : in out Widget'Class)
    return Index;

void focus(Fl_Widget *W);

void forms_end();

int handle(int);

function Handle
       (This  : in out Group;
        Event : in     Event_Kind)
    return Event_Outcome;

void init_sizes();

procedure Reset_Initial_Sizes
       (This : in out Group);

void insert(Fl_Widget &, int i);

procedure Insert
       (This  : in out Group;
        Item  : in out Widget'Class;
        Place : in     Index);

void insert(Fl_Widget &o, Fl_Widget *before);

procedure Insert
       (This   : in out Group;
        Item   : in out Widget'Class;
        Before : in     Widget'Class);

function Iterate
       (This : in Group)
    return Group_Iterators.Reversible_Iterator'Class;

void remove(int index);

procedure Remove
       (This  : in out Group;
        Place : in     Index);

void remove(Fl_Widget &);
void remove(Fl_Widget *o);

procedure Remove
       (This : in out Group;
        Item : in out Widget'Class);

void resizable(Fl_Widget &o);
void resizable(Fl_Widget *o);

procedure Set_Resizable
       (This : in out Group;
        Item : in     Widget'Class);

Fl_Widget * resizable() const;

function Get_Resizable
       (This : in Group)
    return access Widget'Class;

void resize(int, int, int, int);

static Fl_Group * current();

function Get_Current
    return access Group'Class;

static void current(Fl_Group *g);

procedure Set_Current
       (To : in Group'Class);