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

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

Fl_Clock(uchar t, int X, int Y, int W, int H, const char *L);

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

procedure Draw
       (This : in out Updated_Clock);

procedure Draw
       (This       : in out Clock;
        X, Y, W, H : in     Integer);

int handle(int);

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