Fl_Valuator(int X, int Y, int W, int H, const char *L);

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

void bounds(double a, double b);

procedure Set_Bounds
       (This     : in out Valuator;
        Min, Max : in     Long_Float);

double clamp(double);

function Clamp
       (This  : in Valuator;
        Input : in Long_Float)
    return Long_Float;

virtual int format(char *);

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

double increment(double, int);

function Increment
       (This  : in Valuator;
        Input : in Long_Float;
        Step  : in Integer)
    return Long_Float;

double maximum() const;

function Get_Maximum
       (This : in Valuator)
    return Long_Float;

void maximum(double a);

procedure Set_Maximum
       (This : in out Valuator;
        To   : in     Long_Float);

double minimum() const;

function Get_Minimum
       (This : in Valuator)
    return Long_Float;

void minimum(double a);

procedure Set_Minimum
       (This : in out Valuator;
        To   : in     Long_Float);

void precision(int digits);

procedure Set_Precision
       (This : in out Valuator;
        To   : in     Integer);

void range(double a, double b);

procedure Set_Range
       (This     : in out Valuator;
        Min, Max : in     Long_Float);

double round(double;

function Round
       (This  : in Valuator;
        Input : in Long_Float)
    return Long_Float;

void step(int a);

void step(double a, int b);

void step(double s);

procedure Set_Step
       (This : in out Valuator;
        To   : in     Long_Float);

double step() const;

function Get_Step
       (This : in Valuator)
    return Long_Float;

double value() const;

function Get_Value
       (This : in Valuator)
    return Long_Float;

int value(double);

procedure Set_Value
       (This : in out Valuator;
        To   : in     Long_Float);