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);

procedure Draw
       (This : in out Input_Choice);

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

Fl_Input * input();

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

const Fl_Menu_Item * menu();

void menu(const Fl_Menu_Item *m);

Fl_Menu_Button * menubutton();

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

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

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);