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

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

Fl_Slider(uchar t, int X, int Y, int W, int H, const char *L);

void bounds(double a, double b);

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

void draw();

procedure Draw
       (This : in out Slider);

int handle(int);

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

int scrollvalue(int pos, int size, int first, int total);

procedure Set_Scrollvalue
       (This            : in out Slider;
        Pos_First_Line  : in     Natural;
        Lines_In_Window : in     Natural;
        First_Line_Num  : in     Natural;
        Total_Lines     : in     Natural);

Fl_Boxtype slider() const;

function Get_Box
       (This : in Slider)
    return Box_Kind;

void slider(Fl_Boxtype c);

procedure Set_Box
       (This : in out Slider;
        To   : in     Box_Kind);

float slider_size() const;

function Get_Slide_Size
       (This : in Slider)
    return Float;

void slider_size(double v);

procedure Set_Slide_Size
       (This : in out Slider;
        To   : in     Float);

function Get_Slider_Type
       (This : in Slider)
    return Slider_Kind;

procedure Set_Slider_Type
       (This : in out Slider;
        To   : in     Slider_Kind);