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

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

void color(Fl_Color v);

procedure Set_Background_Color
       (This : in out Spinner;
        To   : in     Color);

Fl_Color color() const;

function Get_Background_Color
       (This : in Spinner)
    return Color;

procedure Draw
       (This : in out Spinner);

const char * format();

void format(const char *f);

int handle(int event);

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

double maximum() const;

function Get_Maximum
       (This : in Spinner)
    return Long_Float;

void maximum(double m);

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

double maxinum() const;

double minimum() const;

function Get_Minimum
       (This : in Spinner)
    return Long_Float;

void minimum(double m);

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

double mininum() const;

procedure Get_Range
       (This     : in     Spinner;
        Min, Max :    out Long_Float);

void range(double a, double b);

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

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

void selection_color(Fl_Color val);

procedure Set_Selection_Color
       (This : in out Spinner;
        To   : in     Color);

Fl_Color selection_color() const;

function Get_Selection_Color
       (This : in Spinner)
    return Color;

double step() const;

function Get_Step
       (This : in Spinner)
    return Long_Float;

void step(double s);

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

Fl_Color textcolor() const;

function Get_Text_Color
       (This : in Spinner)
    return Color;

void textcolor(Fl_Color c);

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

Fl_Font textfont() const;

function Get_Text_Font
       (This : in Spinner)
    return Font_Kind;

void textfont(Fl_Font f);

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

Fl_Fontsize textsize() const;

function Get_Text_Size
       (This : in Spinner)
    return Font_Size;

void textsize(Fl_Fontsize s);

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

uchar type() const;

function Get_Type
       (This : in Spinner)
    return Spinner_Kind;

void type(uchar v);

procedure Set_Type
       (This : in out Spinner;
        To   : in     Spinner_Kind);

double value() const;

function Get_Value
       (This : in Spinner)
    return Long_Float;

void value(double v);

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