Fl_Tile(int X, int Y, int W, int H, const char *L=0);

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

int handle(int event);

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

void position(int oldx, int oldy, int newx, int newy);

procedure Position
       (This         : in out Tiled_Group;
        Old_X, Old_Y : in     Integer;
        New_X, New_Y : in     Integer);

void resize(int X, int Y, int W, int H);

procedure Resize
       (This       : in out Tiled_Group;
        X, Y, W, H : in     Integer);