Fl_File_Browser(int, int, int, int, const char *=0);

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

int filetype() const;

function Get_File_Kind
       (This : in File_Browser)
    return File_Kind;

void filetype(int t);

procedure Set_File_Kind
       (This  : in out File_Browser;
        Value : in     File_Kind);

const char * filter() const;

function Get_Filter
       (This : in File_Browser)
    return String;

void filter(const char *pattern);

procedure Set_Filter
       (This  : in out File_Browser;
        Value : in     String);

uchar iconsize() const;

function Get_Icon_Size
       (This : in File_Browser)
    return Icon_Size;

void iconsize(uchar s);

procedure Set_Icon_Size
       (This  : in out File_Browser;
        Value : in     Icon_Size);

int load(const char *directory, Fl_File_Sort_F
    *sort=fl_numericsort);

function Load
       (This : in out File_Browser;
        Dir  : in     String;
        Sort : in not null FLTK.Filenames.Compare_Function :=
            FLTK.Filenames.Numeric_Sort'Access)
    return Natural;

procedure Load
       (This : in out File_Browser;
        Dir  : in     String;
        Sort : in not null FLTK.Filenames.Compare_Function :=
            FLTK.Filenames.Numeric_Sort'Access);

Fl_Fontsize textsize() const;

function Get_Text_Size
       (This : in File_Browser)
    return Font_Size;

void textsize(Fl_Fontsize s);

procedure Set_Text_Size
       (This : in out File_Browser;
        Size : in     Font_Size);

int full_height() const;

function Full_List_Height
       (This : in File_Browser)
    return Integer;

int incr_height() const;

function Average_Item_Height
       (This : in File_Browser)
    return Integer;

void item_draw(void *, int, int, int, int) const;

procedure Item_Draw
       (This       : in File_Browser;
        Item       : in Item_Cursor;
        X, Y, W, H : in Integer);

int item_height(void *) const;

function Item_Height
       (This : in File_Browser;
        Item : in Item_Cursor)
    return Integer;

int item_width(void *) const;

function Item_Width
       (This : in File_Browser;
        Item : in Item_Cursor)
    return Integer;