Fl_Int_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 Integer_Input;

procedure Draw
       (This : in out Integer_Input);

function Get_Value
       (This : in Integer_Input)
    return Long_Integer;

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