Fl_Input_(int, int, int, int, const char*=0);
Fl_Input(int, int, int, int, const char*=0);

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

function Has_Changed
       (This : in Input)
    return Boolean;

procedure Clear_Changed
       (This : in out Input);

int copy(int clipboard);

procedure Copy
       (This : in out Input);

int copy_cuts();

procedure Copy_Cuts
       (This : in out Input);

Fl_Color cursor_color() const;

function Get_Cursor_Color
       (This : in Input)
    return Color;

void cursor_color(Fl_Color n);

procedure Set_Cursor_Color
       (This : in out Input;
        To   : in     Color);

int cut();

procedure Cut
       (This : in out Input);

int cut(int n);

procedure Cut
       (This      : in out Input;
        Num_Bytes : in     Integer);

int cut(int a, int b);

procedure Cut
       (This          : in out Input;
        Start, Finish : in     Integer);

void draw();

procedure Draw
       (This : in out Input);

int handle(int);

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

Fl_Char index(int i) const;

function Index
       (This  : in Input;
        Place : in Integer)
    return Character;

int input_type() const;

function Get_Input_Type
       (This : in Input)
    return Input_Kind;

void input_type(int t);

procedure Set_Input_Type
       (This : in out Input;
        To   : in     Input_Kind);

int insert(const char *t, int l=0);

procedure Insert
       (This : in out Input;
        Str  : in     String);

int mark() const;

function Get_Mark
       (This : in Input)
    return Natural;

int mark(int m);

procedure Set_Mark
       (This : in out Input;
        To   : in     Natural);

int maximum_size() const;

function Get_Maximum_Size
       (This : in Input)
    return Natural;

void maximum_size(int m);

procedure Set_Maximum_Size
       (This : in out Input;
        To   : in     Natural);

int position() const;

function Get_Position
       (This : in Input)
    return Natural;

int position(int p, int m);

int position(int p);

procedure Set_Position
       (This : in out Input;
        To   : in     Natural);

int readonly() const;

function Is_Readonly
       (This : in Input)
    return Boolean;

void readonly(int b);

procedure Set_Readonly
       (This : in out Input;
        To   : in     Boolean);

int replace(int b, int e, const char *text, int ilen=0);

procedure Replace
       (This     : in out Input;
        From, To : in     Natural;
        New_Text : in     String);

void resize(int, int, int, int);

int shortcut() const;

function Get_Shortcut_Key
       (This : in Input)
    return Shortcut_Key;

void shortcut(int s);

procedure Set_Shortcut_Key
       (This : in out Input;
        To   : in     Shortcut_Key);

int size() const;

function Size
       (This : in Input)
    return Natural;

void size(int W, int H);

procedure Resize
       (This : in out Input;
        W, H : in     Integer);

int static_value(const char *);

int static_value(const char *, int);

void tab_nav(int val);

procedure Set_Tab_Nav
       (This : in out Input;
        To   : in     Boolean);

int tab_nav() const;

function Is_Tab_Nav
       (This : in Input)
    return Boolean;

Fl_Color textcolor() const;

function Get_Text_Color
       (This : in Input)
    return Color;

void textcolor(Fl_Color n);

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

Fl_Font textfont() const;

function Get_Text_Font
       (This : in Input)
    return Font_Kind;

void textfont(Fl_Font s);

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

Fl_Fontsize textsize() const;

function Get_Text_Size
       (This : in Input)
    return Font_Size;

void textsize(Fl_Fontsize s);

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

int undo();

procedure Undo
       (This : in out Input);

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

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

const char * value() const;

function Get_Value
       (This : in Input)
    return String;

int wrap() const;

function Is_Wrap
       (This : in Input)
    return Boolean;

void wrap(int b);

procedure Set_Wrap
       (This : in out Input;
        To   : in     Boolean);