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

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

void clear();

procedure Clear
       (This : in out Scroll);

void draw();

procedure Draw
       (This : in out Scroll);

int handle(int);

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

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

void scroll_to(int, int);

procedure Scroll_To
       (This : in out Scroll;
        X, Y : in     Integer);

int scrollbar_size() const;

function Get_Scrollbar_Size
       (This : in Scroll)
    return Integer;

void scrollbar_size(int newSize);

procedure Set_Scrollbar_Size
       (This : in out Scroll;
        To   : in     Integer);

int xposition() const;

function Get_Scroll_X
       (This : in Scroll)
    return Integer;

int yposition() const;

function Get_Scroll_Y
       (This : in Scroll)
    return Integer;

procedure Set_Type
       (This : in out Scroll;
        Mode : in     Scroll_Kind);