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

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

void draw();

procedure Draw
       (This : in out Clock);

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

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

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

int hour() const;

function Get_Hour
       (This : in Clock)
    return Hour;

int minute() const;

function Get_Minute
       (This : in Clock)
    return Minute;

int second() const;

function Get_Second
       (This : in Clock)
    return Second;

void value(ulong v);

procedure Set_Time
       (This : in out Clock;
        To   : in     Time_Value);

void value(int H, int m, int s);

procedure Set_Time
       (This    : in out Clock;
        Hours   : in     Hour;
        Minutes : in     Minute;
        Seconds : in     Second);

ulong value() const;

function Get_Time
       (This : in Clock)
    return Time_Value;