Fl_Pack(int x, int y, int w, int h, const char *l=0);

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

void draw();

procedure Draw
       (This : in out Packed_Group);

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

uchar horizontal() const;

int spacing() const;

function Get_Spacing
       (This : in Packed_Group)
    return Integer;

void spacing(int i);

procedure Set_Spacing
       (This : in out Packed_Group;
        To   : in     Integer);