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

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

int handle(int);

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

function Get_Long_Step
       (This : in Counter)
    return Long_Float;

void lstep(double a);

procedure Set_Long_Step
       (This : in out Counter;
        To   : in     Long_Float);

double step() const;

function Get_Step
       (This : in Counter)
    return Long_Float;

void step(double a);

procedure Set_Step_Top
       (This : in out Counter;
        To   : in     Long_Float);

void step(double a, double b);

procedure Set_Step_Both
       (This        : in out Counter;
        Short, Long : in     Long_Float);

Fl_Color textcolor() const;

function Get_Text_Color
       (This : in Counter)
    return Color;

void textcolor(Fl_Color s);

procedure Set_Text_Color
       (This : in out Counter;
        To   : in     Color);

Fl_Font textfont() const;

function Get_Text_Font
       (This : in Counter)
    return Font_Kind;

void textfont(Fl_Font s);

procedure Set_Text_Font
       (This : in out Counter;
        To   : in     Font_Kind);

Fl_Fontsize textsize() const;

function Get_Text_Size
       (This : in Counter)
    return Font_Size;

void textsize(Fl_Fontsize s);

procedure Set_Text_Size
       (This : in out Counter;
        To   : in     Font_Size);

void draw();

procedure Draw
       (This : in out Counter);