Fl_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 Choice;

void draw();

procedure Draw
       (This : in out Choice);

int handle(int);

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

function Chosen
       (This : in Choice)
    return FLTK.Menu_Items.Menu_Item_Reference;

int value() const;

function Chosen_Index
       (This : in Choice)
    return Extended_Index;

int value(int v);

procedure Set_Chosen
       (This  : in out Choice;
        Place : in     Index);

int value(const Fl_Menu_Item *v);

procedure Set_Chosen
       (This : in out Choice;
        Item : in     FLTK.Menu_Items.Menu_Item);