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

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

void client_area(int &rx, int &ry, int &rw, int &rh, int tabh=0);

procedure Get_Client_Area
       (This       : in     Tabbed_Group;
        Tab_Height : in     Natural;
        X, Y, W, H :    out Integer);

int handle(int);

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

Fl_Widget * push() const;

function Get_Push
       (This : in Tabbed_Group)
    return access Widget'Class;

int push(Fl_WIdget *);

procedure Set_Push
       (This : in out Tabbed_Group;
        Item : in out Widget'Class);

Fl_Widget * value();

function Get_Visible
       (This : in Tabbed_Group)
    return access Widget'Class;

int value(Fl_Widget *);

procedure Set_Visible
       (This : in out Tabbed_Group;
        Item : in out Widget'Class);

Fl_Widget * which(int event_x, int event_y);

function Get_Which
       (This             : in Tabbed_Group;
        Event_X, Event_Y : in Integer)
    return access Widget'Class;

void draw();

procedure Draw
       (This : in out Tabbed_Group);

void redraw_tabs();

procedure Redraw_Tabs
       (This : in out Tabbed_Group);