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

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

Fl_Boxtype down_box() const;

function Get_Down_Box
       (This : in File_Input)
    return Box_Kind;

void down_box(Fl_Boxtype b);

procedure Set_Down_Box
       (This : in out File_Input;
        To   : in     Box_Kind);

virtual void draw();

procedure Draw
       (This : in out File_Input);

Fl_Color errorcolor() const;

function Get_Error_Color
       (This : in File_Input)
    return Color;

void errorcolor(Fl_Color c);

procedure Set_Error_Color
       (This : in out File_Input;
        To   : in     Color);

virtual int handle(int event);

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

int value(const char *str);
int value(const char *str, int len);

procedure Set_Value
       (This : in out Input;
        To   : in     String);

const char * value();

function Get_Value
       (This : in Input)
    return String;