Fl_Value_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 Value_Input;

Fl_Color cursor_color() const;

function Get_Cursor_Color
       (This : in Value_Input)
    return Color;

void cursor_color(Fl_Color n);

procedure Set_Cursor_Color
       (This : in out Value_Input;
        Col  : in     Color);

void draw();

procedure Draw
       (This : in out Value_Input);

int handle(int);

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

Fl_Input input;

function Input
       (This : in Value_Input)
    return FLTK.Widgets.Inputs.Input_Reference;

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

int shortcut() const;

function Get_Shortcut
       (This : in Value_Input)
    return Key_Combo;

void shortcut(int s);

procedure Set_Shortcut
       (This : in out Value_Input;
        Key  : in     Key_Combo);

void soft(char s);

procedure Set_Soft
       (This : in out Value_Input;
        To   : in     Boolean);

char soft() const;

function Is_Soft
       (This : in Value_Input)
    return Boolean;

Fl_Color textcolor() const;

function Get_Text_Color
       (This : in Value_Input)
    return Color;

void textcolor(Fl_Color n);

procedure Set_Text_Color
       (This : in out Value_Input;
        Col  : in     Color);

Fl_Font textfont() const;

function Get_Text_Font
       (This : in Value_Input)
    return Font_Kind;

void textfont(Fl_Font s);

procedure Set_Text_Font
       (This : in out Value_Input;
        Font : in     Font_Kind);

Fl_Fontsize textsize() const;

function Get_Text_Size
       (This : in Value_Input)
    return Font_Size;

void textsize(Fl_Fontsize s);

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