Fl_Input * input();

function Text_Field
       (This : in out Input_Choice)
    return FLTK.Widgets.Inputs.Text.Text_Input_Reference;

Fl_Menu_Button * menubutton();

function Button_Menu
       (This : in out Input_Choice)
    return FLTK.Widgets.Menus.Menu_Buttons.Menu_Button_Reference;

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

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

void add(const char *s);

int changed() const;

function Has_Changed
       (This : in Input_Choice)
    return Boolean;

void clear();

procedure Clear
       (This : in out Input_Choice);

void clear_changed();

procedure Clear_Changed
       (This : in out Input_Choice);

Fl_Boxtype down_box() const;

function Get_Down_Box
       (This : in Input_Choice)
    return Box_Kind;

void down_box(Fl_Boxtype b);

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

const Fl_Menu_Item * menu();

void menu(const Fl_Menu_Item *m);

void resize(int X, int Y, int W, int H);

procedure Resize
       (This       : in out Input_Choice;
        X, Y, W, H : in     Integer);

void set_changed();

procedure Set_Changed
       (This : in out Input_Choice;
        To   : in     Boolean);

Fl_Color textcolor() const;

function Get_Text_Color
       (This : in Input_Choice)
    return Color;

void textcolor(Fl_Color c);

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

Fl_Font textfont() const;

function Get_Text_Font
       (This : in Input_Choice)
    return Font_Kind;

void textfont(Fl_Font f);

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

Fl_Fontsize textsize() const;

function Get_Text_Size
       (This : in Input_Choice)
    return Font_Size;

void textsize(Fl_Fontsize s);

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

const char * value() const;

function Get_Input
       (This : in Input_Choice)
    return String;

void value(const char *val);

procedure Set_Input
       (This : in out Input_Choice;
        To   : in     String);

void value(int val);

procedure Set_Item
       (This : in out Input_Choice;
        Num  : in     Integer);