Fl_Menu_(int, int, int, int, const char *=0);

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

int add(const char *, int shortcut, Fl_Callback *, void *=0, int=0);

procedure Add
       (This     : in out Menu;
        Text     : in     String;
        Action   : in     Widget_Callback := null;
        Shortcut : in     Key_Combo := No_Key;
        Flags    : in     Menu_Flag := Flag_Normal);

int add(const char *a, const char *b, Fl_Callback *c, void *d=0, int e=0);

int add(const char *);

void clear();

procedure Clear
       (This : in out Menu);

int clear_submenu(int index);

void copy(const Fl_Menu_Item *m, void *user_data=0);

Fl_Boxtype down_box() const;

function Get_Down_Box
       (This : in Menu)
    return Box_Kind;

void down_box(Fl_Boxtyep b);

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

Fl_Color down_color() const;

void down_color(unsigned c);

procedure Draw
       (This : in out Menu) is null;

procedure Draw_Item
       (This       : in out Menu;
        Item       : in     Index;
        X, Y, W, H : in     Integer;
        Selected   : in     Boolean := False);

int find_index(const char *name) const;

function Find_Index
       (This : in Menu;
        Name : in String)
    return Extended_Index;

int find_index(const Fl_Menu_Item *item) const;

function Find_Index
       (This : in Menu;
        Item : in FLTK.Menu_Items.Menu_Item)
    return Extended_Index;

int find_index(Fl_Callback *cb) const;

function Find_Index
       (This   : in Menu;
        Action : in Widget_Callback)
    return Extended_Index;

const Fl_Menu_Item * find_item(const char *name);

function Find_Item
       (This : in Menu;
        Name : in String)
    return FLTK.Menu_Items.Menu_Item_Reference;

const Fl_Menu_Item * find_item(Fl_Callback *);

function Find_Item
       (This   : in Menu;
        Action : in Widget_Callback)
    return FLTK.Menu_Items.Menu_Item_Reference;

void global();

procedure Make_Global
       (This : in out Menu);

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

function Has_Item
       (This  : in Menu;
        Place : in Index)
    return Boolean;

function Has_Item
       (Place : in Cursor)
    return Boolean;

int insert(int index, const char *, int shortcut, Fl_Callback *, void *=0, int=0);

procedure Insert
       (This     : in out Menu;
        Place    : in     Index;
        Text     : in     String;
        Action   : in     Widget_Callback := null;
        Shortcut : in     Key_Combo := No_Key;
        Flags    : in     Menu_Flag := Flag_Normal);

int insert(int index, const char *a, const char *b, Fl_Callback *c, void *d=0, int e=0);

function Item
       (This  : in Menu;
        Place : in Index)
    return FLTK.Menu_Items.Menu_Item_Reference;

function Item
       (This  : in Menu;
        Place : in Cursor)
    return FLTK.Menu_Items.Menu_Item_Reference;

int item_pathname(char *name, int namelen, const Fl_Menu_Item *finditem=0) const;

function Iterate
       (This : in Menu)
    return Menu_Iterators.Reversible_Iterator'Class;

procedure Measure_Item
       (This : in     Menu;
        Item : in     Index;
        W, H :    out Integer);

const Fl_Menu_Item * menu() const;

void menu(const Fl_Menu_Item *m);

void mode(int i, int fl);

int mode(int i) const;

const Fl_Menu_Item * mvalue() const;

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

const Fl_Menu_Item * picked(const Fl_Menu_Item *);

function Popup
       (This    : in Menu;
        X, Y    : in Integer;
        Title   : in String := "";
        Initial : in Extended_Index := No_Index)
    return FLTK.Menu_Items.Menu_Item_Reference;

function Pulldown
       (This       : in Menu;
        X, Y, W, H : in Integer;
        Initial    : in Extended_Index := No_Index)
    return FLTK.Menu_Items.Menu_Item_Reference;

void remove(int);

procedure Remove
       (This  : in out Menu;
        Place : in     Index);

void replace(int, const char *);

void setonly(Fl_Menu_Item *item);

void shortcut(int i, int s);

int size() const;

function Number_Of_Items
       (This : in Menu)
    return Natural;

void size(int W, int H);

const Fl_Menu_Item * test_shortcut();

const char * text() const;

function Chosen_Label
       (This : in Menu)
    return String;

const char * text(int i) const;

Fl_Color textcolor() const;

function Get_Text_Color
       (This : in Menu)
    return Color;

void textcolor(Fl_Color c);

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

Fl_Font textfont() const;

function Get_Text_Font
       (This : in Menu)
    return Font_Kind;

void textfont(Fl_Font c);

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

Fl_Fontsize textsize() const;

function Get_Text_Size
       (This : in Menu)
    return Font_Size;

void textsize(Fl_Fontsize c);

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

int value() const;

function Chosen_Index
       (This : in Menu)
    return Extended_Index;

int value(const Fl_Menu_Item *);

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

int value(int i);

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