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 *);

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;

double step() const;

function Get_Step
       (This : in Valuator)
    return Long_Float;

void step(double a, int b);

procedure Set_Step
       (This   : in out Valuator;
        Top    : in     Long_Float;
        Bottom : in     Integer);

void step(double s);

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

void step(int a);

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

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);

void handle_drag(double newvalue);

void handle_push();

void handle_release();

int horizontal() const;

double previous_value() const;

void set_value(double v);

double softclamp(double);

virtual void value_damage();

procedure Value_Damage
       (This : in out Valuator);