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

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

virtual void draw();

procedure Draw
       (This : in out Progress_Bar);

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

void maximum(float v);

procedure Set_Maximum
       (This : in out Progress_Bar;
        To   : in     Float);

float maximum() const;

function Get_Maximum
       (This : in Progress_Bar)
    return Float;

void minimum(float v);

procedure Set_Minimum
       (This : in out Progress_Bar;
        To   : in     Float);

float minimum() const;

function Get_Minimum
       (This : in Progress_Bar)
    return Float;

void value(float v);

procedure Set_Value
       (This : in out Progress_Bar;
        To   : in     Float);

float value() const;

function Get_Value
       (This : in Progress_Bar)
    return Float;